Function fCardinalDate(Optional dtmDate As Date = 0) As String
' Immediate Window Test: fCardinalDate(Date) returns - December 13th, 2008
Dim strTemp As String
'Setting to 0 sets Date to the beginning - 12/30/1899 00:00:00
If dtmDate = #12:00:00 AM# Then dtmDate = Date
Select Case Day(dtmDate)
Case 1, 21, 31: strTemp = "st"
Case 2, 22: strTemp = "nd"
Case 3, 23: strTemp = "rd"
Case Else: strTemp = "th"
End Select
fCardinalDate = Format(dtmDate, "mmmm") & " " & _
Day(dtmDate) & strTemp & ", " & _
Year(dtmDate)
End Function