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")
|
