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

 Dim NL As String = Environment.NewLine
        Dim Titel As String = "Statusmeldung"
        'Ableseintervall Variable (Tage)
        Dim interval_days As Integer
        '-----------------------------------------------------
        For Zeile As Integer = 0 To DGVStrom.Rows.Count - 2
 
            Dim d1 As Date = Date.Parse(DGVStrom.Rows(Zeile).Cells(1).Value)
            Dim d2 As Date = Date.Parse(DGVStrom.Rows(Zeile + 1).Cells(1).Value)
 
            'aktuelles Ableseintervall in Tagen
            interval_days = (d2 - d1).TotalDays
 
            If Zeile = 0 Then
 
                Dim Meldung As String = String.Concat(NL, "erste Ablesung," & _
                  "keine Berechnung")
                MessageBox.Show(Meldung, Titel, MessageBoxButtons.OK, _
                MessageBoxIcon.Information)
 
            Else
 
                'wenn Monate = 30 Tage dann interval_days / 30
                'wenn Monatsgenau dann 3/31 + 3/30
                Dim Meldung As String = String.Concat(NL, Zeile, NL, _
                                                          "Monate: " & CInt( _
                                                          interval_days / 30), _
                                                          NL, _
                                                          "Wochen: " & ( _
                                                          interval_days / 30) / _
                                                          7, NL, _
                                                          "Tage:   " & "?")
                MessageBox.Show(Meldung, Titel, MessageBoxButtons.OK, _
                  MessageBoxIcon.Information)
 
 
 
            End If
 
 
        Next

  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

Zeitraum("#2023/06/21 11:17#", "#2024/04/08 17:20#")

Länge in Wochen: {tage \ 7} Wochen und {tage Mod 7}Tage
Länge des Zeitraums: {m} Monate, {tage \ 7} Wochen,{tage Mod 7} Tage, {ts:h' 
' Stunden und 'm' Minuten'}
Der Thread 'vshost.RunParkingWindow' (0x13fc) hat mit Code 0 (0x0) geendet.
Der Thread '<Kein Name>' (0x22e8) hat mit Code 0 (0x0) geendet.
Das Programm "[7288] MyArchiv.vshost.exe: Verwaltet (v4.0.30319)" wurde mit _
  Code 0 (0x0) beendet.

Länge des Zeitraums: {m} Monate, {tage \ 7} Wochen,{tage Mod 7} Tage, {ts:h' 
' Stunden und 'm' Minuten'}

... Tage, {ts:h' Stunden und 'm' Minuten'}")

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

ts = d2 - d
tage = ts.Days

Dim ts2 As TimeSpan = d2 - d
Dim tage2 as Integer = ts.Days

  Function Zeitraum(d1 As Date, d2 As Date) As String
    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
 
    Dim sb As New System.Text.StringBuilder
 
    sb.AppendFormat("Zeitraum: {0:f} - {1:f}", d1, d2)
    sb.AppendLine()
    sb.AppendLine()
    sb.AppendFormat("Länge in Tagen: {0} Tage", ts.Days)
    sb.AppendLine()
    sb.AppendFormat("Länge in Wochen: {0} Wochen und {1} Tage", ts.Days \ 7, _
      ts.Days Mod 7)
    sb.AppendLine()
    sb.AppendLine()
    sb.AppendFormat("Länge: {0} Tage, {1} Stunden und {2} Minuten", ts.Days, _
      ts.Hours, ts.Minutes)
    'oder auch so:
    'sb.AppendFormat("Länge: {0:%d} Tage, {0:%h} Stunden und {0:%m} Minuten", 
    ' ts)
    sb.AppendLine()
    sb.AppendLine()
    sb.AppendLine()
    sb.AppendFormat("Länge des Zeitraums: {0} Monate, {1} Wochen, " _
      & "{2} Tage, {3} Stunden und {4} Minuten", _
      m, ts2.Days \ 7, ts2.Days Mod 7, ts2.Hours, ts2.Minutes)
    Return sb.ToString
  End Function

   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

Zitat:

Hallo Kuno60, kannst du mir erklären warum Manfredx Zitat: Ich kann vor dieser Routine nur warnen. vor deiner Routine warnt, OK weil wohl ungenau aber verstehe es halt noch nicht ganz, was macht deine Routine genau

    Do
      x = d1.AddMonths(m + 1)
      If x > d2 Then Exit Do
      m += 1
      Console.WriteLine($"Monat {m}: {x:d}  Tage: {(x - d).Days} Summe: {(x -" & _
        "d1).Days}")
      d = x
    Loop
 
'Ausgabe:
 
'Zeitraum: Mittwoch, 21. Juni 2023 - Freitag, 12. April 2024
 
'Länge in Tagen: 296 Tage
 
'Monat 1: 21.07.2023  Tage: 30 Summe: 30
'Monat 2: 21.08.2023  Tage: 31 Summe: 61
'Monat 3: 21.09.2023  Tage: 31 Summe: 92
'Monat 4: 21.10.2023  Tage: 30 Summe: 122
'Monat 5: 21.11.2023  Tage: 31 Summe: 153
'Monat 6: 21.12.2023  Tage: 30 Summe: 183
'Monat 7: 21.01.2024  Tage: 31 Summe: 214
'Monat 8: 21.02.2024  Tage: 31 Summe: 245
'Monat 9: 21.03.2024  Tage: 29 Summe: 274
 
'Länge des Zeitraums: 9 Monate und 22 Tage

Dim totaldays As Integer = 1155
 
Dim years As Integer = totaldays \ 360  'Zinsjahr
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 totaldays As Integer = 1155
 Dim years As Integer = totaldays \ 360 
 totaldays = totaldays - years * 5
 years = totaldays \ 360  'Zinsjahr
 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 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)