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.
Public Function pfun_OrdinalDate(dte_toformat As Date) As String
Select Case Day(dte_toformat)
Case 1, 21, 31
daysuffix$ = Day(dte_toformat) & "st "
Case 2, 22
daysuffix$ = Day(dte_toformat) & "nd "
Case 3, 23
daysuffix$ = Day(dte_toformat) & "rd "
Case Else
daysuffix$ = Day(dte_toformat) & "th "
End Select
pfun_OrdinalDate = daysuffix$ & Format$(dte_toformat, "mmmm") & Format$(dte_toformat, " yyyy")
End Function
?pfun_OrdinalDate(date())