Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[blue]Public Function OrdDate(dtDate As Date) As String
OrdDate = Ordinal(Day(dtDate)) & " " & Format(dtDate, "mmmm") & " " & Year(dtDate)
End Function
Public Function Ordinal(lNumber As Long) As String
Dim suffix As String
suffix = "th"
If CLng(lNumber \ 10) Mod 10 <> 1 Then
Select Case lNumber Mod 10
Case 1: suffix = "st"
Case 2: suffix = "nd"
Case 3: suffix = "rd"
End Select
End If
Ordinal = lNumber & suffix
End Function[/blue]