Vorsicht mit dem Gebrauch der Funktion "Now"
Spielen Sie folgendes durch:
'liefert heutiges Datum vierstellig
x = Format(Now, "0000")
'liefert heutiges Datum im Format TT.MM.JJJJ
y = Format(x, "DD.MM.YYYY")
Das o.g.
Beispiel funktioniert nur vor 12 Uhr mittags !
Sollte es sp�ter sein, so rundet Visual Basic auf den
n�chsten Tag auf,
da die Funktion Now einen Wert des Typs Variant liefert,
der in diesem Fall auf den n�chsten Tag aufgerundet wird.
Mit der INT-Anweisung schaffen Sie Abhilfe:
x = Format(Int(Now), "0000")
y = Format(x, "DD.MM.YYYY")
|
