1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Public Function FormatDateUSFR(ByVal TheDate As Date, _
Optional ByVal Country As String = "FR") As String
Dim strMonth As String
Dim strDate As String
If Country = "US" Then
strMonth = Choose(Month(TheDate), "January", "February", "March", _
"April", "May", "June", "July", "August", "September", "October", _
"November", "December")
strDate = strMonth & " " & Day(TheDate) & ", " & Year(TheDate)
Else
strMonth = StrConv(Format(TheDate, "mmmm"), vbProperCase)
strDate = Day(TheDate) & " " & strMonth & " " & Year(TheDate)
End If
FormatDateUSFR = strDate
End Function |
Partager