'---------------------------------------------------------------------------------------
' Procedure : dateOrd
' Author    : Jack
' Created   : 1/28/2010
' Purpose   : To format a date into day (ordiinal) full Month and 4 digit year.
'
' Example:   31/12/1975    gives 31st December 1975
'            15/10/2003    gives 15th October 2003
'---------------------------------------------------------------------------------------
' Last Modified:
'
' Inputs: A valid date
' Dependency: N/A
'------------------------------------------------------------------------------
'
Function dateOrd(d1 As Date) As String
Dim i As Integer
Dim ret As String
Dim s As String
   On Error GoTo dateOrd_Error

s = Format(d1, " MMMM YYYY")
i = Format(d1, "dd")

Select Case i
Case i = 1 Or 21 Or 31
sufx = "st"
Case i = 2 Or 22
sufx = "nd"
Case i = 3 Or 23
sufx = "rd"
Case Else
sufx = "th"

End Select
dateOrd = i & sufx & s
'Debug.Print ret

   On Error GoTo 0
   Exit Function

dateOrd_Error:

    MsgBox "Error " & Err.number & " (" & Err.Description & ") in procedure dateOrd"
End Function

Function formatday(dtDate) As String

Dim dtDay As Long
dtDay = CLng(Day(dtDate))

Select Case dtDay
    Case Is = 1, 21, 31
        formatday = dtDay & "st"
    Case Is = 3, 23
        formatday = dtDay & "rd"
    Case Is = 2, 22
        formatday = dtDay & "nd"
    Case Else
        formatday = dtDay & "th"
End Select
End Function

Public Function FormatOrdinalDay(ByVal dtDate As Date) As String
  Dim intDay As Integer
  
  intDay = Day(dtDate)
  If (intDay >= 10) And (intDay <= 20) Then
    FormatOrdinalDay = Format(dtDate, "d\t\h mmmm yyyy")
  
  Else
    Select Case intDay Mod 10
      Case 1
        FormatOrdinalDay = Format(dtDate, "d\s\t mmmm yyyy")
      Case 2
        FormatOrdinalDay = Format(dtDate, "d\n\d mmmm yyyy")
      Case 3
        FormatOrdinalDay = Format(dtDate, "d\r\d mmmm yyyy")
      Case Else
        FormatOrdinalDay = Format(dtDate, "d\t\h mmmm yyyy")
    End Select
  
  End If
  
End Function