Conversion string en date (VBA)
Résolu/Fermé
Adranix
-
2 nov. 2022 à 15:34
ccm81 Messages postés 10877 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 23 août 2024 - 3 nov. 2022 à 15:21
ccm81 Messages postés 10877 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 23 août 2024 - 3 nov. 2022 à 15:21
2 réponses
ccm81
Messages postés
10877
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 août 2024
2 414
Modifié le 2 nov. 2022 à 19:47
Modifié le 2 nov. 2022 à 19:47
Bonjour
Essaies ceci ta "date" étant de type entier
Public Function cvdate(d As Integer) As Date Dim j As Long, m As Long, a As Long, cvd As String a = Year(Date) m = d Mod 100 j = d \ 100 cvd = CDate(j & "/" & m & "/" & a) cvdate = cvd End Function
ou ceci, la date étant de type texte
Public Function cvsdate(d As String) As Date Dim j As Long, m As Long, a As Long, cvd As String a = Year(Date) m = Right(d, 2) j = Left(d, Len(d) - 2) cvd = CDate(j & "/" & m & "/" & a) cvsdate = cvd End Function
Cdlmnt
Bonjour,
Et merci.
Cela m'embête un peu que ce soit une fonction, mais ça fonctionne.
Cdt.
ccm81
Messages postés
10877
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 août 2024
2 414
3 nov. 2022 à 15:21
3 nov. 2022 à 15:21
Cela m'embête un peu que ce soit une fonction
Tu peux te contenter de récupérer la partie de la fonction qui fabrique la date pour l'intégrer à ton code.
RQ. ça vaut toujours le coup de fabriquer un outil (ici une fonction) même si on ne doit l'utiliser qu'une fois !
Bon après midi