Microsoft Office Forums - View Single Post - [Solved] Need help creating a document with 365 images, with a day of the year 2018 captioned on each image.

macropod · 11-03-2017, 08:25 PM

You could add the following function to the same code module you use for Graham's code:

Code:

Function DateOrdinal(Val As Long) As String
Dim strOrd As String
If (Val Mod 100) < 11 Or (Val Mod 100) > 13 Then strOrd = Choose(Val Mod 10, "st", "nd", "rd") & ""
DateOrdinal = IIf(strOrd = "", "th", strOrd)
End Function