• Home
 · 
• Windows API Call/Explanation
 · 
• Display System time as 'Wednesday, 2nd April, 2003' or in any order just swap postion of WeekdayNam

Display System time as 'Wednesday, 2nd April, 2003' or in any order just swap postion of WeekdayNam

Display System time as 'Wednesday, 2nd April, 2003' or in any order just swap postion of WeekdayName etc.

Rate Display System time as 'Wednesday, 2nd April, 2003' or in any order just swap postion of WeekdayNam

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim attn As String
If Day(Date) = 1 Then attn = "st"
If Day(Date) = 2 Then attn = "nd"
If Day(Date) = 3 Then attn = "rd"
If Day(Date) > 3 Then attn = "th"
Text1.Text = "" & _
"   " & WeekdayName(Weekday(Date), False, vbSunday) & _
",  " & Day(Date) & attn & _
"   " & VBA.MonthName(VBA.Month(Date)) & _
",  " & VBA.Year(Date) '& _       add if moving postion
End Sub