Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic date français / anglais

date français / anglais

2 réponses
Avatar
Thierry MARI
Bonjour,

J'ai un probl=E8me avec les dates.
Je saisie une date au format JJ/MM/AAAA dans un textbox.
Lorsque je fais un calcul sur cette date, il me prend=20
syst=E9matiquement le format anglais !
Exemple : Je saisie 02/10/2004 (02 octobre 2004).
Avec la ligne suivante, j'ai toujours un resultat=20
incorrect.
if TxtDate < Now() then...
TxtDate sera < Now(), puisqu'il prend TxtDate=20
=3D "10/02/2004" (10 fevrier 2004).

J'ai essay=E9 de jouer avec Format, Format$...

Rien =E0 faire.
Je ne peux pas faire de test sur date, ce sera toujours=20
faux.

Merci pour votre aide !

Thierry.
Signaler un problème avec ce contenu

2 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
le_troll
Bonjour,

Normalement les calculs devrait être fait avec DateSerial
x = Dateserial 2() - dateserial1()

Cependant on peut charger la date en européen comme ça, par exemple:
dim d as date
d = format(mid(text1,1,2),"00") & "/" & format(mid(text1,4,2),"00") & "/" &
mid(text1,7,4)
d = "jj/mm/aaaa"

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------


"Thierry MARI" a écrit dans le message
de news: a00801c47937$2241db40$
Bonjour,

J'ai un problème avec les dates.
Je saisie une date au format JJ/MM/AAAA dans un textbox.
Lorsque je fais un calcul sur cette date, il me prend
systématiquement le format anglais !
Exemple : Je saisie 02/10/2004 (02 octobre 2004).
Avec la ligne suivante, j'ai toujours un resultat
incorrect.
if TxtDate < Now() then...
TxtDate sera < Now(), puisqu'il prend TxtDate
= "10/02/2004" (10 fevrier 2004).

J'ai essayé de jouer avec Format, Format$...

Rien à faire.
Je ne peux pas faire de test sur date, ce sera toujours
faux.

Merci pour votre aide !

Thierry.
Avatar
Thierry MARI
Merci pour ton aide.

Thierry.
-----Message d'origine-----
Bonjour,

Normalement les calculs devrait être fait avec


DateSerial
x = Dateserial 2() - dateserial1()

Cependant on peut charger la date en européen comme ça,


par exemple:
dim d as date
d = format(mid(text1,1,2),"00") & "/" & format(mid


(text1,4,2),"00") & "/" &
mid(text1,7,4)
d = "jj/mm/aaaa"

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours


raison !
------------------------------------------


"Thierry MARI" a


écrit dans le message
de news: a00801c47937$2241db40$
Bonjour,

J'ai un problème avec les dates.
Je saisie une date au format JJ/MM/AAAA dans un textbox.
Lorsque je fais un calcul sur cette date, il me prend
systématiquement le format anglais !
Exemple : Je saisie 02/10/2004 (02 octobre 2004).
Avec la ligne suivante, j'ai toujours un resultat
incorrect.
if TxtDate < Now() then...
TxtDate sera < Now(), puisqu'il prend TxtDate
= "10/02/2004" (10 fevrier 2004).

J'ai essayé de jouer avec Format, Format$...

Rien à faire.
Je ne peux pas faire de test sur date, ce sera toujours
faux.

Merci pour votre aide !

Thierry.


.