[VBA]Convertir un string en date Résolu

Question

Bonjour,

j'ai un problème avec les dates en vba...

Admettons que j'ai un string st = "12/03/2009" et que je souhaite le convertir en Date...

quelqu'un saurait-il comment faire ?

PS : je suis novice en VBA

Cordialement,

green

lermite222 · Accepted Answer

seulement utile quand...
MyDate = "12 février 1969"    ' Définit la date.
MyShortDate = CDate(MyDate)    ' Convertit en type Date.
Sinon, les dates écrite en littéral 12/12/2008 par exemple, sont d'office considérée comme une date.

lermite222 · Answer

Bonjour,
Faut rien faire, c'est d'office une date avec lequel tu peu travailler

A+

lami20j · Answer

Salut,

Il y a la fonction CDate

greenthumb · Answer

Re,

merci beaucoup pour la fonction CDate, c'est ce qu'il me fallait ;)

lermite, voulez-vous dire qu'un string ayant la forme "12/02/2009" peut ensuite être directement comparé a une variable au format date ?

greenthumb · Answer

d'accord je ne savais pas... c'est toujours bon à savoir :)

Merci bonne journée ;)

lami20j · Answer

Re,

Sinon, les dates écrite en littéral 12/12/2008 par exemple, sont d'office considérée comme une date. 
Oui, c'est bien ça ;-)

lami20j · Answer

Re,

Aussi pour testSub string2date()
    Dim st As String, st2 As String, st3 As Date
    Dim dt As Date, dt2 As Date, dt3 As Date
    st = "12/03/2009"
    dt = CDate(st)
    If st = dt Then
        MsgBox "ok"
    Else
        MsgBox "non"
    End If
    
    st2 = "12 février 1969"
    dt2 = CDate(st2)
    If st2 = dt2 Then
        MsgBox "ok 2"
    Else
        MsgBox "non 2"
    End If
    
    st3 = "18/03/2009"
    dt3 = CDate(st3)
    MsgBox DateDiff("d", st2, dt3)
    MsgBox DateDiff("d", dt2, dt3)
End Sub

lermite222 · Answer

Re,
Et pour être complet, Cdate (ou ancienement CVdate) peu aussi être nécessaire quand il y a une extraction de date à partir d'un BD ou d'un fichier texte/csv
A+

greenthumb · Answer

En effet ça marche... super !!

Merci beaucoup :)

[VBA]Convertir un string en date

9 réponses

Discussions similaires

Newsletters