Option Explicit
 
Private Sub Form_Load()
    Dim AnfangsDatum
    Dim EndDatum
    Dim HilfsDatum
    Dim AnzahlJahre
    Dim AnzahlMonate
    Dim AnzahlTage
 
    AnfangsDatum = "10.02.2001"
    EndDatum = "01.12.2003"
 
    AnzahlJahre = 0
    AnzahlMonate = 0
    AnzahlTage = 0
 
    AnzahlMonate = DateDiff("m", AnfangsDatum, EndDatum)
    Do While AnzahlMonate > 12
        AnzahlJahre = AnzahlJahre + 1
        AnzahlMonate = AnzahlMonate - 12
    Loop
 
    HilfsDatum = DateAdd("yyyy", AnzahlJahre, AnfangsDatum)
    HilfsDatum = DateAdd("m", AnzahlMonate, HilfsDatum)
    AnzahlTage = DateDiff("d", HilfsDatum, EndDatum)
 
    If AnzahlTage < 0 Then
        AnzahlMonate = AnzahlMonate - 1
        HilfsDatum = DateAdd("yyyy", AnzahlJahre, AnfangsDatum)
        HilfsDatum = DateAdd("m", AnzahlMonate, HilfsDatum)
        AnzahlTage = DateDiff("d", HilfsDatum, EndDatum)
    End If
 
    Label1.Caption = "AnfangsDatum:  " & AnfangsDatum
    Label2.Caption = "EndDatum:          " & EndDatum
    Label3.Caption = "AnzahlJahre:         " & AnzahlJahre
    Label4.Caption = "AnzahlMonate:       " & AnzahlMonate
    Label5.Caption = "AnzahlTage:          " & AnzahlTage
    Label6.Caption = "HilfsDatum:          " & HilfsDatum
End Sub