Am 17.01.11 09:47, schrieb [email protected]:
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
Danke Rossi,
danke für deinen kommentar, ich bin bereits von den anderen 'zur
ordnung' gerufen worden ;-) und Christian hat mir mit
dim d As new date
listbox1.DeleteAllRows
for i as integer = 0 to 29
d.day = d.day + 1
listbox1.AddRow d.ShortDate
next
die einfachste variante geliefert.
Mein gedächtnis ist nicht mehr das beste und da verrenn ich mich halt
zwischen den bäumen....
gruss
enno
