Date-Funktion

31/08/2008 - 17:34 von Helge Haensel | Report spam
Hallo NG!
WindowsXP/HE SP2, OfficeXP/Pro SP3, VB5EE/SP3, FreePDF 3.24
Ich stelle eben mit Schrecken fest, wenn ich text = Format(year(date),
"yy")
in VBA aufrufe, wird 05 zurückgegeben.
Wenn ich text = Format(year(date), "yyyy") ausführe, erhalte ich (fast
folgerichtig)
1905. Wenn ich den VBA-Lauf anhalte und irgendwo im bearbeiteten Code mit
dem Cursor auf Date zeige, popt aber 31.08.2008 auf.
How that?
Vy 73! Helge
Helge, DJ1WM
 

Lesen sie die antworten

#1 Peter Schleif
31/08/2008 - 17:43 | Warnen spam
Helge Haensel schrieb am 31.08.2008 17:34 Uhr:

Ich stelle eben mit Schrecken fest, wenn ich text = Format(year(date),
"yy")
in VBA aufrufe, wird 05 zurückgegeben.
Wenn ich text = Format(year(date), "yyyy") ausführe, erhalte ich (fast
folgerichtig)
1905.



Das ist ja auch völlig korrekt.

Year(Date) ist 2008. Und wenn Du 2008 der Format-Funktion übergibt,
formatiert sie den Excel-Tag 2008 (30.06.1905) als Jahr. Das ist das
gleiche wie Format(2008, "yyyy")

Du suchst vielleicht: MsgBox Format(Now, "yyyy")

Peter

Ähnliche fragen