Hallo Enno,
du arbeitest in deinem Konstrukt mit vielen Sachen bei denen man nicht
weiss, was passiert.
Eine ganz einfache Variante wäre:
dim d As new date
dim i As Integer
listbox1.DeleteAllRows
for i = 0 to 29
listbox1.AddRow d.ShortDate
d.TotalSeconds = d.TotalSeconds+84600
next
Beste Grüße
Rossi
IT-Rosenowski
Inh.: Jörg Rosenowski
Tauchaer Straße 232
04349 Leipzig
Tel.: +49 341 9211655
Funk: +49 176 80016127
http://www.it-rosenowski.de [email protected]
Am 16.01.2011 06:37, schrieb Enno Bussmann:
Guten morgen,
ich stehe mal wieder auf dem schlauch. Ich möchte in eine listbox das
datum des jeweils nächsten tags für eine gewisse zeitspanne schreiben,
bekomme aber mit dem nachstehenden code nur die datumsanzeige aus dem
jahr 1972. Sehe ich mir dabei _d_ per msgbox an, so bekomme ich das
korrekte ausgangsdatum. Also was fehlt ?
dim d As new date
dim dx as variant
dim zd As date
dim i As Integer
dx = d.TotalSeconds
listbox1.DeleteAllRows
for i = 0 to 29
dx = dx+84600
zd = dx.datevalue
listbox1.AddRow ""
listbox1.cell(Listbox1.LastIndex,0) = zd.ShortDate
next
danke im voraus
enno
