Zeitraum("2023.02.21 11:27", "2023.03.21 11:37")

 Sub Zeitraum(d1 As Date, d2 As Date)
        Dim ts As TimeSpan = d2 - d1 'Differenz
        Dim tage As Integer = ts.Days
 
        ' 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
 
        Dim sbMeldung As New System.Text.StringBuilder
 
        sbMeldung.AppendFormat("{0} {1} {2} {3}", "Zeitraum: ", Format(d1, _
          "dddd - dd-MMM-yyyy HH:mm"), " - ", Format(d2, "dddd - dd-MMM-yyyy" & _
          "HH:mm"))
        sbMeldung.AppendLine()
        sbMeldung.AppendLine()
        sbMeldung.AppendFormat("{0} {1}", "Länge in Tagen: ", ts.Days & " Tage")
        sbMeldung.AppendLine()
        sbMeldung.AppendFormat("{0} {1} {2} {3}", "Länge in Wochen: ", ts.Days _
          \ 7 & " Wochen und ", ts.Days Mod 7, " Tage")
        sbMeldung.AppendLine()
        sbMeldung.AppendLine()
        sbMeldung.AppendFormat("{0} {1} {2}", "Länge: " & ts.Days & " Tage", _
          ts.Hours & " Stunden", " und " & ts.Minutes & " Minuten")
        sbMeldung.AppendLine()
        sbMeldung.AppendLine()
        sbMeldung.AppendLine()
        sbMeldung.AppendFormat("{0} {1} {2} {3} {4} {5} {6} {7}", "Länge des" & _
          "Zeitraums: ", m & " Monate ", ts.Days \ 7 & _
                               " Wochen", ts.Days Mod 7, " Tage", ts.Hours & "" & _
                               "Stunden", " und ", ts.Minutes & " Minuten")
        '-funktioniert, aber ManfredX meint was anderes ?
        MsgBox(sbMeldung.ToString)
    End Sub