> zd.d.TotalSeconds = d.TotalSeconds+84600 Mal ganz davon abgesehen wären es ohnehin 86400 ;-)
und zd.day + 1 würde genau dasselbe machen andy On 16.01.11 10:15, "Stefan Mettenbrink" <[email protected]> wrote: > 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. >
