Long Choose Function

[Ganymede]

I need to write a choose function that selects the proper ending for the day of the month. For instance, January 3rd, 2012. In excel, I had a template document with a date that would automatically update thanks to the following formula:

=CHOOSE(Text(Today(), "d"), "st", "nd", "rd", "th", "th", "th", "th", "th", "th", "th", "th", "th", "th", "th", "th", "th", "th", "th", "th", "th", "st", "nd", "rd", "th", "th", "th", "th", "th", "th", "th", "st")

When I try to replicate this in access, it says the formula is too complex. Since I can write shorter choose functions in access, I assume the expression is too complex because it is too long. Is there a clean way around this? I can think of a number of messy ways, but I feel like access should have a way around this.

Thanks

[June7]

Why even use ordinals in a date?

Apparently 3 ordinals too many for ControlSource. However, VBA has no problem with the full set. Suggest build a function and then call the function in the ControlSource.

Are Text and Today custom functions? I used Day(Date) instead.

Alternative is Switch or IIf function (both work for me), like:
=IIf((Day(Date())>3 And Day(Date())<21) Or (Day(Date())>23 And Day(Date())<31),"th",IIf(Day(Date()) Like "*1","st",IIf(Day(Date()) Like "*2","nd",IIf(Day(Date()) Like "*3","rd",""))))
=Switch((Day(Date())>3 And Day(Date())<21) Or (Day(Date())>23 And Day(Date())<31),"th",Day(Date()) Like "*1","st",Day(Date()) Like "*2","nd",Day(Date()) Like "*3","rd")

[Ganymede]

Why even use ordinals in a date?

Apparently 3 ordinals too many for ControlSource. However, VBA has no problem with the full set. Suggest build a function and then call the function in the ControlSource.

Are Text and Today custom functions? I used Day(Date) instead.

Alternative is use Switch or IIf functions.

The item I'm dating is an official court document. Ordinals are not required, but they are custom.

Build a function? I guess I'm kind of new to access. Is that similar to a "named range" in excel? Or were you suggesting making a custom function in VBA?

Text() and Today() are regular excel functions. Text is Text(range, format). Today() just returns the current date in whatever format you specify. In that equation, I used the text() function to format the date to "d".

[June7]

Text and Today won't work in Access or VBA. I edited my previous post and provided alternative to VBA custom function suggestion. If you read before those edits, might look at again.

[Ganymede]

Text and Today won't work in Access or VBA. I edited my previous post and provided alternative to VBA custom function suggestion. If you read before those edits, might look at again.

Thank you.