Dim totaldays As Integer = DateDiff("d", d1, d2)
 
        Dim years As Integer = totaldays \ 360  'Zinsjahr
        totaldays = totaldays - years * 5
        Dim months As Integer = (totaldays - years * 360) \ 30
        Dim weeks As Integer = (totaldays - years * 360 - months * 30) / 7
        Dim days As Integer = totaldays - years * 360 - months * 30 - weeks * 7
 
        Dim ts As TimeSpan = d2 - d1 'Differenz
        Dim sb As New System.Text.StringBuilder
 
        sb.AppendFormat("Status: {0:f} - {1:f}", d1, d2)
        sb.AppendLine()
        sb.AppendLine()
        sb.AppendFormat("Länge in Tagen: {0} Tage", totaldays)
        sb.AppendLine()
        sb.AppendFormat("Länge in Wochen: {0} ", weeks)
        sb.AppendLine()
        sb.AppendFormat("Oder: {0} Monate und {1} Tage", months, days)
        sb.AppendLine()
        sb.AppendLine()
        sb.AppendFormat("Oder: {0} Jahre |{1} Monate | {2} Wochen", years, _
          months, weeks)
        sb.AppendLine()
        sb.AppendFormat("Zeitraum: {0:%d} Tage, {0:%h} Stunden und {0:%m}" & _
          "Minuten", ts)
        sb.AppendLine()
        If years = 0 Then
            sb.AppendLine()
            sb.AppendLine()
            sb.AppendFormat("letzte Eingabe vor: {0} Monaten ", months)
        End If
        '----------------------------------------------------------------------
        MessageBox.Show(sb.ToString, "Ablesedaten-Eingabe-Status", _
          MessageBoxButtons.OK, MessageBoxIcon.Information)