I'm trying to do a mailmerge from Excell and I want the date from excell to
print out as

"st" or "nd" or "rd" or "th" of "month" ", " yyyy


Example. "3rd day of March, 2005"


I have the following function from access. Any help?


' This function formats a date in the formal legal fashion:
' 20th day of February, 2001

Dim strDay As String
Dim strMonth As String
Dim strYear As String

strDay = CStr(Day(dtToday))
strMonth = Format$(dtToday, "mmmm")
strYear = CStr(Year(dtToday))

If Len(Trim(strDay)) = 2 And Left$(strDay, 1) = "1" Then
FormalDate = strDay & "th day of " & strMonth & ", " & strYear
Else
Select Case Right$(strDay, 1)
Case "1"
FormalDate = strDay & "st day of " & strMonth & ", " & strYear
Case "2"
FormalDate = strDay & "nd day of " & strMonth & ", " & strYear
Case "3"
FormalDate = strDay & "rd day of " & strMonth & ", " & strYear
Case Else
FormalDate = strDay & "th day of " & strMonth & ", " & strYear
End Select
End If

End Function

Sincerly,

Greg Smart