Systemzeit
07.09.2003 11:18:04
Matthias C.
im unten stehenden Makro wird das Datum + x in einer Listbox angezeigt.
Wenn ich das Datum in der Taskleiste um einen oder zwei Tage manipuliere, ändert sich jedoch nichts beim nächsten Aufruf der Listbox. Im Bios steht mein "von oben" geändertes Datum aber da. Woher nimmt "Date" eigentlich die Systemzeit? Könnte es an WindowsXP liegen? Vielen Dank im voraus.
Private Sub UserForm_Initialize()
Dim WochenArray(20, 1)
Dim i%, y%
While Weekday(Date + i - 1) <> 1
i = i + 1
Wend
For i = i To 20 + i - 1
WochenArray(y, 1) = Format(Date - 1 + i, "dddd")
WochenArray(y, 0) = Format(Date - 1 + i, "dd.mm.yyyy")
y = y + 1
Next i
With lstAuswahl
.ColumnWidths = 120
.List() = WochenArray
.ListIndex = 1
End With
End Sub
MfG Matthias