Hi Rossi, das hatten wir gestern schon.. .und es sind immer noch 86400 ;-)
Gruß andy On 17.01.11 09:47, "[email protected]" <[email protected]> wrote: > 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 >> >> >
