Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Afficher date en anglais (Format Long)

Afficher date en anglais (Format Long)

4 réponses
Avatar
La Mouette
Bonjour!

Comment faire afficher la date dans un rapport en anglais?
C'est-à-dire: 02-02-2004 = February 2, 2004

Il y a une fonction déjà faite pour ca? Desfois je la veux en francais et
desfois en anglais, donc je ne veux pas changer mes settings dans Windows.

Merci d'avance
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JMH
Salut
J'ai du faire en son temps et j'ai fait une fonction:

Function DateEnAnglais(txtWork) As String
If IsNumeric(Left(txtWork, 2)) Then
Else
Exit Function
End If
Dim txtDate As String
txtDate = txtDate & Left(txtWork, 2)
Select Case Left(txtWork, 2)
Case 1, 21, 31
txtDate = txtDate & "st "
Case 2, 22
txtDate = txtDate & "nd "
Case 3, 23
txtDate = txtDate & "rd "
Case Else
txtDate = txtDate & "th "
End Select
Select Case Mid(txtWork, 4, 2)
Case 1
txtDate = txtDate & "January "
Case 2
txtDate = txtDate & "February "
Case 3
txtDate = txtDate & "March "
Case 4
txtDate = txtDate & "April "
Case 5
txtDate = txtDate & "May "
Case 6
txtDate = txtDate & "June "
Case 7
txtDate = txtDate & "July "
Case 8
txtDate = txtDate & "August "
Case 9
txtDate = txtDate & "September "
Case 10
txtDate = txtDate & "October "
Case 11
txtDate = txtDate & "November "
Case 12
txtDate = txtDate & "December "
End Select
txtDate = txtDate & Mid(txtWork, 7, 4)
DateEnAnglais = txtDate
End Function

Bye

"La Mouette" a écrit dans le message
de news:
Bonjour!

Comment faire afficher la date dans un rapport en anglais?
C'est-à-dire: 02-02-2004 = February 2, 2004

Il y a une fonction déjà faite pour ca? Desfois je la veux en francais et
desfois en anglais, donc je ne veux pas changer mes settings dans Windows.

Merci d'avance


Avatar
Raymond [mvp]
Bonjour JMH.

juste une remarque pour le fun et parce que personne ne pense à l'utiliser.
tu peux remplacer le Select Case par un Choose.
Select Case Mid(txtWork, 4, 2)
Case 1
txtDate = txtDate & "January "
Case 2
txtDate = txtDate & "February "
par

txtDate = txtDate & Choose(Mid(txtWork, 4, 2), "January ", "February ",
"March ", ...)

une seule ligne remplace 26 lignes et l'efficacité est améliorée.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JMH" a écrit dans le message de news:

Salut
J'ai du faire en son temps et j'ai fait une fonction:

Function DateEnAnglais(txtWork) As String
If IsNumeric(Left(txtWork, 2)) Then
Else
Exit Function
End If
Dim txtDate As String
txtDate = txtDate & Left(txtWork, 2)
Select Case Left(txtWork, 2)
Case 1, 21, 31
txtDate = txtDate & "st "
Case 2, 22
txtDate = txtDate & "nd "
Case 3, 23
txtDate = txtDate & "rd "
Case Else
txtDate = txtDate & "th "
End Select
Select Case Mid(txtWork, 4, 2)
Case 1
txtDate = txtDate & "January "
Case 2
txtDate = txtDate & "February "
Case 3
txtDate = txtDate & "March "
Case 4
txtDate = txtDate & "April "
Case 5
txtDate = txtDate & "May "
Case 6
txtDate = txtDate & "June "
Case 7
txtDate = txtDate & "July "
Case 8
txtDate = txtDate & "August "
Case 9
txtDate = txtDate & "September "
Case 10
txtDate = txtDate & "October "
Case 11
txtDate = txtDate & "November "
Case 12
txtDate = txtDate & "December "
End Select
txtDate = txtDate & Mid(txtWork, 7, 4)
DateEnAnglais = txtDate
End Function



Avatar
JMH
Salut Raymond

C'est parce que je suis payé à la ligne. :-))

Je ne connaissais pas la fonction Choose.

Merci

A+


"Raymond [mvp]" a écrit dans le message de
news: u$
Bonjour JMH.

juste une remarque pour le fun et parce que personne ne pense à
l'utiliser. tu peux remplacer le Select Case par un Choose.
Select Case Mid(txtWork, 4, 2)
Case 1
txtDate = txtDate & "January "
Case 2
txtDate = txtDate & "February "
par

txtDate = txtDate & Choose(Mid(txtWork, 4, 2), "January ", "February ",
"March ", ...)

une seule ligne remplace 26 lignes et l'efficacité est améliorée.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JMH" a écrit dans le message de news:

Salut
J'ai du faire en son temps et j'ai fait une fonction:

Function DateEnAnglais(txtWork) As String
If IsNumeric(Left(txtWork, 2)) Then
Else
Exit Function
End If
Dim txtDate As String
txtDate = txtDate & Left(txtWork, 2)
Select Case Left(txtWork, 2)
Case 1, 21, 31
txtDate = txtDate & "st "
Case 2, 22
txtDate = txtDate & "nd "
Case 3, 23
txtDate = txtDate & "rd "
Case Else
txtDate = txtDate & "th "
End Select
Select Case Mid(txtWork, 4, 2)
Case 1
txtDate = txtDate & "January "
Case 2
txtDate = txtDate & "February "
Case 3
txtDate = txtDate & "March "
Case 4
txtDate = txtDate & "April "
Case 5
txtDate = txtDate & "May "
Case 6
txtDate = txtDate & "June "
Case 7
txtDate = txtDate & "July "
Case 8
txtDate = txtDate & "August "
Case 9
txtDate = txtDate & "September "
Case 10
txtDate = txtDate & "October "
Case 11
txtDate = txtDate & "November "
Case 12
txtDate = txtDate & "December "
End Select
txtDate = txtDate & Mid(txtWork, 7, 4)
DateEnAnglais = txtDate
End Function







Avatar
Raymond [mvp]
je me disais aussi ! toujours l'argent ......

il y a aussi Switch que personne n'utilise.
http://access.vba.free.fr/choose.htm
http://access.vba.free.fr/switch.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JMH" a écrit dans le message de news:

Salut Raymond

C'est parce que je suis payé à la ligne. :-))

Je ne connaissais pas la fonction Choose.

Merci

A+