Schleife endet nicht
30.03.2008 15:28:00
Born
kann mir vielleicht jemand erklären, warum folgende Schleife
nicht endet, wenn DateDiff=0 ist:
Sub Ablauf()
Dim vondatum As Date, bisDatum As Date
vondatum = "02.03.2008"
bisDatum = "04.03.2008"
Do Until DateDiff("d", vonDdatum, bisDatum) = 0
MsgBox DateDiff("d", vondatum, bisDatum)
vondatum = DateAdd("d", 1, vondatum)
Loop
End Sub
Danke,
Born