Enno Bussmann wrote:
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
Warum so kompliziert?
dim d As new date
dim zd As new date
dim i As Integer
listbox1.DeleteAllRows
for i = 0 to 29
zd.d.TotalSeconds = d.TotalSeconds+84600
listbox1.AddRow zd.ShortDate"
next
Habe ich nicht ausprobiert, aber wäre das, was ich versuchen würde.
MfG, Metti.
