Probleme de comparaison de date

Question

voila quelqu'un pourrait il m'aider car je comprend pas pourquoi cela ne marche pas il m'indique type incompatible.
dte est de type date

dim annee as integer 
annee = year (date)

While dte < (1 / 10 / "& annee &")
        
            dte = DateAdd("d", 1, dte)
            MsgBox ("Date : & dte &")
            
        Wend

oxram

Gobillot · Answer

1 / 10 / "& annee &"

diviser 1 par 10 puis par une cha&#238;ne non num&#233;rique

comparaison d'une date avec une cha&#238;ne c'est pas tr&#232;s bon
    While dte < "1/10/" & CStr(annee)
          dte = DateAdd("d", 1, dte)
          MsgBox ("Date :" & dte)
          Wend

comparaison d'une date avec une date c'est mieux          
    While dte < DateSerial(annee, 10, 1)
          dte = DateAdd("d", 1, dte)
          MsgBox ("Date :" & dte)
          Wend
          
supprimer les boucles pas n&#233;cessaires c'est nettement mieux
    If dte < DateSerial(annee, 10, 1) Then
       dte = DateSerial(annee, 10, 1)
       End If
    MsgBox ("Date :" & dte)

&#233;viter les multi-conversions c'est parfait
    Dim dat As Date
    dat = DateSerial(annee, 10, 1)
    If dte < dat Then dte = dat
    MsgBox ("Date :" & dte)

Daniel

Probleme de comparaison de date

1 réponse

Discussions similaires