Transformer une date issue d'une texbox en texte au format US

Bonjour

Je cherche à transformer une date présente dans une textbox nommée "TDate" au format JJ/MM/AAAA en simple texte mais en format US AAAA/MM/JJ

Par exemple, la date :
16/07/2018 -> devient -> 20180716 en texte

Pourriez vous m'indiquer comment réaliser cela svp ?
Cordialement,

Bonjour,

Code:

---

d = Format(CDate(textbox1), "yyyymmdd")

---

eric

Je conseille plutôt :

Code:

---

d = Format(DateSerial(Right(textbox1, 4), Mid(textbox1, 4, 2), Left(textbox1, 2)), "yyyymmdd")

---

Faire un test avec 01/03/2018.

J'essaie d'intégrer ce petit code dans la fonction d'un bouton qui appelle un 'datepicker'

Ce bouton affiche alors la date au format JJ/MM/AAAA dans la textbox nommée "TDateDevis"

Ce que je souhaite c'est qu'ensuite cette date soit reprise puis transformée pour apparaitre dans une seconde textbox nommée "TReferenceFixeDevis"

Actuellement, la compilation renvoi un 'type mismatch'

Code:

---

1 2 3 4 5 6

Private Sub Bt1_Click() Set calen = TDateDevis 'TReferenceFixeDevis = Format(DateSerial(Right(TDateDevis, 4), Mid(TDateDevis, 4, 2), Left(TDateDevis, 2)), "yyyymmdd") TReferenceFixeDevis = Format(CDate(TDateDevis), "yyyymmdd") Calendrier.Show 0 End Sub

---

Merci a vous,

Re, salut Menhir,

aucun soucis chez moi sur 01/03/2018 avec Cdate().
Même s'il est vrai que parfois Cdate se fait avoir.
eric

Citation:

---

aucun soucis chez moi sur 01/03/2018 avec Cdate().
Même s'il est vrai que parfois Cdate se fait avoir.

---

Salut Eriiic,
J'ai déjà eu pas mal de déboire avec l'ambigüité anglophone/francophone de VBA, en particulier sur les date.
Depuis, je préfère me méfier.

Citation:

---

en format US AAAA/MM/JJ

---

Petite remarque : à ma connaissance le format US n'est pas AAAA/MM/JJ mais MM/JJ/AAAA (ce qui est encore plus illogique que le notre).

Citation:

---

Actuellement, la compilation renvoi un 'type mismatch'

---

C'est quoi ça : Set calen = TDateDevis

Code:

---

Set calen = TDateDevis

---

Permet de mettre la date cliqué dans le datepicker ( calendrier en pop-up) dans la textbox appelée "TDateDevis"

Savez vous pourquoi j'obtiens un Run Time error 13 "type mismatch" lorsque la fonction est appelée quand j'utilise :

Code:

---

1 2 3 4

Private Sub TDateDevis_Change() ' Remplissage de la textbox "TReferenceFixeDevis" lorsque "TDateDevis" contient une date insérée via le calendrier pop-up. TReferenceFixeDevis = Format(DateSerial(Right(TDateDevis, 4), Mid(TDateDevis, 4, 2), Left(TDateDevis, 2)), "yyyymmdd") End Sub

---

Si la fonction contient ceci, elle fonctionne :

Code:

---

1 2 3 4

Private Sub TDateDevis_Change() ' Remplissage de la textbox "TReferenceFixeDevis" lorsque "TDateDevis" contient une date insérée via le calendrier pop-up. TReferenceFixeDevis = Format(CDate(TDateDevis), "yyyymmdd") End Sub

---

Est ce qu'il est possible que cela soit lié au fait que l'Excel que j'utiliise actuellement en Anglais avec une version de Windows en Anglais également ?

Citation:

---

Envoyé par lcoulon

Savez vous pourquoi j'obtiens un Run Time error 13 "type mismatch" lorsque la fonction est appelée quand j'utilise :

Code:

---

1 2 3 4

Private Sub TDateDevis_Change() ' Remplissage de la textbox "TReferenceFixeDevis" lorsque "TDateDevis" contient une date insérée via le calendrier pop-up. TReferenceFixeDevis = Format(DateSerial(Right(TDateDevis, 4), Mid(TDateDevis, 4, 2), Left(TDateDevis, 2)), "yyyymmdd") End Sub

---

---

Es-tu sûr que la date saisie soit de format JJ/MM/AAAA ?
Ne serait-ce pas plutôt JJ/MM/AA ?

tu parlais d'un textbox.
J'ai bien l'impression que tu as plutôt un composant qui te retourne une vraie date.
Dans ce cas

Code:

---

=Format(TDateDevis, "yyyymmdd")

---

devrait suffire.
eric