✔ VB6: Wochentagsname wird falsch ausgegeben

[Kraah]

Bin gerade dabei, mir für mein Programm eine Datumsanzeige zu basteln und dachte das ich fertig wäre, bis ich merkte, das der falsche Tag ausgegeben wird.

Code:
Datum = VBA.WeekdayName(VBA.Weekday(VBA.Date), False, vbUseSystemDayOfWeek) & ", der " & VBA.Day(VBA.Date) & ". " & VBA.MonthName(VBA.Month(VBA.Date), False) & " " & VBA.Year(VBA.Date)

Ausgabe:
Montag, der 04. Mai 2008

Aber heute ist Sonntag.
ich hatte schonmal so eine Ausgabe und glaube auch in dieser Art realisiert, weshalb ich den Fehler nicht finde.

 

[wincnc]

Hallo

Du musst bei Weekday den 1. Wochentag angeben.

Dim Datum As String

Datum = WeekdayName(Weekday(Date, vbMonday), False, vbUseSystemDayOfWeek) & ", der " & Day(Date) & ". " & MonthName(Month(Date), False) & " " & Year(Date)
MsgBox Datum

' So geht´s auch:
Datum = Format(Now, "dddd") & ", den " & Format(Now, "d. mmmm yyyy")
MsgBox Datum

 

[Kraah]

Uuhhh... verdammt.
Wusste doch das ich was vergessen habe. Zumindest hatte ich das Gefühl.
Tja, irgendwann wird man betriebsblind.

Danke für die Hilfe.
Das ist wieder mal sowas kleines, das ich Wochen an dem Fehler gesucht hätte. -.-