Sub cal_days(start As Long, ende As Long)
TempDates.Clear
Dim wert,sum,zw As Long
Dim i As Int
If start > ende Or start = ende Then
Log("Fehler Datum")
Dayslabel.Text="Fehler Datum"
Else
wert = ende-start
zw = wert/1000/ 60 / 60 / 24+2
Log(zw & " Tage")
Dayslabel.Text=zw & " Tage"
For i= 0 To zw-1
sum = DateTime.Add(start,0,0,i)
TempDates.Add(DateTime.Date(sum))
Next
End If
End Sub