sub dd()
frmdate = "01-Dec-2018"
dt_dd_new = DayEnding(frmdate)
Msgbox DayEnding(frmdate)
End sub
Function DayEnding(FormatDate As Variant) As String
Dim DayOfMonth As String
Dim Ext As String
DayOfMonth = Day(FormatDate)
Select Case DayOfMonth
Case 1, 21, 31: Ext = "st"
Case 2, 22: Ext = "nd"
Case 3, 23: Ext = "rd"
Case Else: Ext = "th"
End Select
DayEnding = DayOfMonth & Ext
End Function
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts