CodeItBetter Programming Another VB Programming Blog

'Date & Time - How to get full format date ex: Wednesday, 1st Nov. 2006
Option Explicit
 
Public Function FullFormatDate(ByVal theDate As Date) As String
' Inputs -  theDate should be dd/mm/yyyy or dd/mm/yy
    Dim wkDD As String
    wkDD = Format(theDate, "DD")
    Select Case wkDD
    Case 1, 21, 31
        wkDD = Format(wkDD, "#0") & "st"
    Case 2, 22
        wkDD = Format(wkDD, "#0") & "nd"
    Case 3, 23
        wkDD = Format(wkDD, "#0") & "rd"
    Case Else
        wkDD = Format(wkDD, "#0") & "th"
    End Select
    FullFormatDate = Format(theDate, "DDDD, ") & wkDD & Format(theDate, " MMM. YYYY")
End Function