Recherche
Recherche
Les mémos
Je débute...
Visites

 999726 visiteurs

 1 visiteur en ligne

FAQ
Déplier Fermer  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
Dim sM As String

If 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")

USdate = sM & " " & Day(xDate) & ", " & Year(xDate)

End If
End Function

Dernière modification :06/02/2007 : 16:22 Hyperlien