Welke datum is eerder

[BasHD]

Hallo,

Ik heb het volgende geprogrammeerd:

Do
            Line Input #1, regel
            Verwerk = InStr(1, regel, "Verwerkingsdatum", vbBinaryCompare)
         Loop Until Verwerk > 0
        
            Verwerkingsdatum = FormatDateTime((Mid$(regel, Verwerk + 16, 10)), 2)
            ' FormatDateTime((Mid(regel,Verwerk,10)), 2)
    Stop
       [COLOR="red"]If Verwerkingsdatum < "27-12-2010" Then GoTo 281210:[/COLOR]    
      Do
            Line Input #1, regel
            PosUitg = InStr(1, regel, "Uitgangspunten", vbBinaryCompare)
      Loop Until PosUitg > 0

De verwerkingsdatum is nu "14-1-2011" en dan gaat de vba toch door naar Then GoTo 281210:

Dit terwijl ik het idee heb dat 14-1-2011 groter zou moeten zijn dan 27-12-2010. Wat zie ik over het hoofd??

Gr

Bas

 

[Haaren101]

Je bent 2 strings met elkaar aan het vergelijken. Een string die met 1 begint is kleiner dan een string die met 2 begint.
Dat is wat er gebeurt. Hoe je het op kan lossen moet ik aan een ander over laten

Ron

 

[E v R]

Probeer het eens zo:

If Verwerkingsdatum < #12/27/2010# Then GoTo 281210: