Sub Zeitraum(d1 As Date, d2 As Date)
    Console.WriteLine($"Zeitraum: {d1:f} - {d2:f}")
    Console.WriteLine()
    Dim ts As TimeSpan = d2 - d1 'Differenz
    Console.WriteLine($"Länge: {ts:d' Tage, 'h' Stunden und 'm' Minuten'}")
    Dim tage As Integer = ts.Days
    Console.WriteLine($"Länge in Tagen: {tage} Tage")
    Console.WriteLine($"Länge in Wochen: {tage \ 7} Wochen und {tage Mod 7}" & _
      "Tage")
    '-------------------------------------------------------
    ' Zeitraum mit tatsächlichen Tagen der einzelnen Monate.
    Dim d As Date = d1, x As Date, m As Integer = 0
    Do
      x = d1.AddMonths(m + 1)
      If x > d2 Then Exit Do
      d = x : m += 1
    Loop
    ts = d2 - d
    tage = ts.Days
    Console.WriteLine($"Länge des Zeitraums: {m} Monate, {tage \ 7} Wochen," & _
      "{tage Mod 7} Tage, {ts:h' Stunden und 'm' Minuten'}")
  End Sub
 
' mit diesem Aufruf:
Zeitraum(#2023/06/21 11:17#, #2024/04/08 17:20#)
 
' ergibt sich dieses Ergebnis:
 
'Zeitraum: Mittwoch, 21. Juni 2023 11:17 - Montag, 8. April 2024 17:20
 
'Länge: 292 Tage, 6 Stunden und 3 Minuten
'Länge in Tagen: 292 Tage
'Länge in Wochen: 41 Wochen und 5 Tage
'Länge des Zeitraums: 9 Monate, 2 Wochen, 4 Tage, 6 Stunden und 3 Minuten