Discussion :

[p'tite Sandrine]

Bonjour à tous,

Ma question porte sur le format des dates.

J'ai actuellement un champ date au format abrégé que j'arrive a transformer au format texte standard en français.

J'aimerais savoir si il existe une commande qui me permettrais de le transformer au format texte mais en neerlandais.
Merci pour votre aide.

[p'tite Sandrine]

C'est bon je viens de trouver la réponse sur le forum.

Pour rappel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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