En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224106 visiteurs

 13 visiteurs en ligne

Nous contacter

Contact

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 

Vous êtes ici :   Accueil » FAQ