Dim start_date, end_date As DateTime
start_date = New Date(2022, 1, 15)
end_date = New Date(2022, 2, 15)
 
Dim loop_date As Date
 
'direkte Nutzung der Ticks-Skala mit der richtigen Sprungweite
For i As Long = start_date.Date.Ticks To end_date.Date.Ticks Step _
  TimeSpan.TicksPerDay
    loop_date = New Date(i) 'Ticks wieder in ein Datum wandeln
    Debug.WriteLine(loop_date.Date.ToString)
Next i
 
'Verwendung der AddDays-Methode der Timespan-Klasse
Dim day_count As Integer = (end_date.Date - start_date.Date).Days
 
For i As Integer = 0 To day_count
    loop_date = start_date.Date.AddDays(i)
    Debug.WriteLine(loop_date.Date.ToString)
Next i