FAQ
Problèmes de Date
Dans un état, il peut être nécessaire d'écrire une date en texte à l'anglaise.
A la fonction suivante, on transmettra simplement le date à convertir : USDate([ChampDate])
Function USdate(xDate) As String
A la fonction suivante, on transmettra simplement le date à convertir : USDate([ChampDate])
Function USdate(xDate) As String
Dim sM As String
If IsNull(xDate) Or Not IsDate(xDate) Then
USdate = sM & " " & Day(xDate) & ", " & Year(xDate)
End If
End FunctionIf IsNull(xDate) Or Not IsDate(xDate) Then
USdate = ""
Else sM = Choose(Month(xDate), "January", "February", "March", _
"April", "May", "June", "July", _
"August", "September", "October", _
"November", "December")
"August", "September", "October", _
"November", "December")
USdate = sM & " " & Day(xDate) & ", " & Year(xDate)
End If