Private Sub Zeitraum(d1 As Date, d2 As Date)
        Dim sbMeldung As New System.Text.StringBuilder
 
        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
        sbMeldung.AppendFormat("{0} {1} {2} {3}", "Zeitraum: ", Format(d1, "ddd" & _
          "- dd-MMM-yyyy"), " - ", Format(d2, "ddd - dd-MMM-yyyy"))
        sbMeldung.AppendLine()
        sbMeldung.AppendLine()
        sbMeldung.AppendFormat("{0} {1}", "Länge in Tagen: ", tage & " Tage")
        sbMeldung.AppendLine()
        sbMeldung.AppendFormat("{0} {1} {2} {3}", "Länge in Wochen: ", tage \ 7 _
          & " Wochen und ", tage Mod 7, " Tage")
        sbMeldung.AppendLine()
        ''sbMeldung.AppendFormat("{0} {1} {2}", "Länge: " & tage & " Tage", _
          ts.Hours & " Stunden", " und " & m & " Minuten")
        Do
            x = d1.AddMonths(m + 1)
            If x > d2 Then Exit Do
            d = x : m += 1
        Loop
 
        ts = d2 - d
        tage = ts.Days
 
        sbMeldung.AppendFormat("{0} {1} {2}", "Länge des Zeitraums: ", m & "" & _
          "Monate ", tage \ 7 & " Wochen")
        '', tage Mod 7, " Tage", ts.Hours & " Stunden", " und ", m & " Minuten")
        '----------------------------------------------------------------------
        MessageBox.Show(sbMeldung.ToString, "Ablesedaten-Eingabe-Status", _
          MessageBoxButtons.OK, MessageBoxIcon.Information)
 
    End Sub