Re: Differenz von zwei Datum Werten
03.11.2002 16:40:44
Ramses
Hallo Markus,warum hat der Zellwert den Typ String ?
Ausserdem würde ich dir nicht empfehlen die Funktion Date zu verwenden,... auch wenn es einfacher ist.
Date = "01.10.1960"
und dein Computer hat ein neues Systemdatum !!!! weil damit das Systemdatum verändert werden kann.
Verwende stattdessen Now(). Das kannst du beliebig formatieren:
myToday = Format(Now(),"dd.mm.yyyy")
myTime = Format(Now(),"hh:mm") usw.
Wenn dein Datum als String vorliegt, warum auch immer, kannst du mit
myCellDate = DateValue(Deine Zelle)
den String in ein gültiges Datum umwandeln.
Korrekt wäre dann:
If myCellDate < myToday Then
Msgbox("Kleiner")
End If
Gruss Rainer