Discussion :

[StefLedoc]

Bonjour,

Je récupère une date saisie dans un formulaire que j'ai créé. Cette date est stockée dans dim sDate as string. Elle contient "20181010".
J'ai besoin de la placer dans une autre variable string mais sous une autre forme. J'ai un message d'erreur "dépassement de capacité". Ma ligne de format est :
sDateModif = format(sDate, "dd.mm.yyyy").
J'ai effectué le test suivant sDateModif = format("20181010", "dd.mm.yyyy") et j'ai le même résultat.
L'espion de ma ligne me dit que le format de sortie de format(sDate, "dd.mm.yyyy") est un variant/integer.

Je ne comprends pas pourquoi. Et comment peut-on changer le format d'une date dans une variable string?

Merci d'avance.

[Menhir]

SDate n'étant pas une VRAIE date mais une chaine de caractères, la fonction Format() ne pourra pas fonctionner.
Il faudrait transformer SDate en vraie date en utilisant la fonction Date() renseignée par des portions de SDate.

Mais comme (à priori), ton but est de transformer une chaine de caractères en une autre chaine de caractères, autant rester basique et traiter ça pour ce que c'est.

Code :

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

sDateModif = Right(sDate, 2) & "." & Mid(sDate, 5, 2) & "." & Left(sDate, 4)

[StefLedoc]

Bonjour Menhir,

Je vais peut-être utiliser ceci. Mais au cas où mon besoin se trouverai modifié, comment dois-je convertir ma donnée? Il me semble avoir essayé ceci sans succès : sDateModif = format(Date(sDate), "dd.mm.yyyy").

[Menhir]

Je vais peut-être utiliser ceci. Mais au cas où mon besoin se trouverai modifié, comment dois-je convertir ma donnée? Il me semble avoir essayé ceci sans succès : sDateModif = format(Date(sDate), "dd.mm.yyyy").

J'ai confondu Excel et VBA. En VBA, ce n'est pas Date() qu'il faut utiliser mais DateSerial(). https://docs.microsoft.com/fr-fr/off...erial-function
Mais pour l'utiliser, tu seras, de toutes façon, obligé de décomposer ta chaine de caractère comme je l'ai fait dans le code que j'ai donné.
Donc, ça ne sera que plus compliqué sans présenter de réel intérêt.

[Invité]

Code :

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

sDateModif = format(cdate(format("20181010","@@@@-@@-@@")), "dd.mm.yyyy")

[Igloobel]

Code :

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

sDateModif = format(cdate(format("20181010","@@@@-@@-@@")), "dd.mm.yyyy")

Je ne maitrise pas le symbole "@" pourrais-tu me l'expliquer ?

Je connais "#", "0", " "et """

[Menhir]

Je ne maitrise pas le symbole "@" pourrais-tu me l'expliquer ?
Je connais "#", "0", " "et """

Toutes les explications (et plein d'autres) ici : https://docs.microsoft.com/fr-fr/off...r-applications
Regarde en particulier la chapitre "User-defined string formats".

[hyperion13]

Menhir vous a donné la solution

Code :

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

sDateModif = Format(DateSerial(Left(txtDates, 4), Mid(txtDates, 5, 2), Right(txtDates, 2)), "dd.mm.yyyy")

[Invité]

@=caractère

les date au format international =>YYYY-MM-DD => @@@@-@@-@@ => 2018-10-10

[StefLedoc]

Avec vos différentes solutions je suis sûr de m'en sortir maintenant. Encore merci pour votre réactivité !