Dim ts As TimeSpan = d2 - d1 'Differenz
 
        ' 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
 
        Dim ts2 As TimeSpan = d2 - d