G
Greg Smart
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
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