Or do i need to do a little code

Public Function DateOrdinalEnding(DateIn, MoIn As String)
' Will add an Ordinal ending to a date
' i.e. Novermber 13th, 2000
' MoIn determines Month Format, i.e."mmm" = "Feb" or "mmmm" =
"February"

If IsNull(DateIn) Then
    DateOrdinalEnding = ""
    Exit Function
End If
Dim dteX As String
dteX = DatePart("d", DateIn)
dteX = dteX & Nz(Choose(IIf((Abs(dteX) Mod 100) \ 10 = 1, 0,
Abs(dteX)) Mod 10, "st", "nd", "rd"), "th")

DateOrdinalEnding = Format(DateIn, MoIn) & " " & dteX & ", " &
Format(DateIn, "yyyy")

End Function
====

Then in a Form or Report control:
= DateOrdinalEnding([ADate],"mmmm")

Will display today's date as November 29th, 2001
--
Fred

Please reply only through this newsgroup.
I do not reply to direct e-mails.

There isn't a format that you can create that will do this. I use a short VBA
function to do this:

Function fCardinalDate(dtmDate As Date) As String
    Select Case Day(dtmDate)
        Case 1,21,31
            fCardinalDate=Day(dtmDate) & "st" & Format(dtmDate,"mmmm") & " " &
Year(dtmDate)
        Case 2,22
            fCardinalDate=Day(dtmDate) & "nd" & Format(dtmDate,"mmmm") & " " &
Year(dtmDate)
        Case 3,23
            fCardinalDate=Day(dtmDate) & "rd" & Format(dtmDate,"mmmm") & " " &
Year(dtmDate)
        Case Else
            fCardinalDate=Day(dtmDate) & "th" & Format(dtmDate,"mmmm") & " " &
Year(dtmDate)
    End Select
End Sub

This function will return the date in the format '1st January 2001'. Obviously,
if you want the date in a slightly different format, then you will need to
alter the function as required.

Jon

Access tips & tricks - http://www.applecore99.com
Microsoft Access webring - http://a.webring.com/hub?ring=microsoftaccess