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
