Public Function DateAsWords(dt As Date, Optional f As Integer = 0)

'功能:自定义英文日期显示格式
'用法:DateAsWords(#1/4/2009#) or DateAsWords(#1/4/2009#,1)
' DateAsWords(#1/4/2009#) = "4th"
' DateAsWords(#1/4/2009#,1) = "January 4th, 2009"
' DateAsWords(#1/4/2009#,2) = "4th of January, 2009"
' DateAsWords(#1/4/2009#,3) = "4th of January"
'
Select Case Right(Day(dt), 1)
Case 1
DateAsWords = Day(dt) & "st"
Case 2
DateAsWords = Day(dt) & "nd"
Case 3
If Day(dt) > 9 And Day(dt) < 14 Then
DateAsWords = Day(dt) & "th"
Else
DateAsWords = Day(dt) & "rd"
End If
Case Else
DateAsWords = Day(dt) & "th"
End Select

Select Case f
Case 0
' Change nothing
Case 1
DateAsWords = Format(dt, "mmmm") & " " & DateAsWords & ", " & Year(dt)
Case 2
DateAsWords = DateAsWords & " of " & Format(dt, "mmmm") & ", " & Year(dt)
Case 3
DateAsWords = DateAsWords & " of " & Format(dt, "mmmm")
End Select

End Function

点击下载此附件