Option Explicit
 
Private Sub Form_Load()
    Dim AnfangsDatum
    Dim EndDatum
    Dim HilfsDatum
    Dim AnzahlJahre
    Dim AnzahlMonate
    Dim AnzahlTage
 
    AnfangsDatum = "20.12.2000"
    EndDatum = "06.01.2003"
 
 
    AnzahlMonate = DateDiff("m", AnfangsDatum, EndDatum)
    Do While AnzahlMonate > 12
        AnzahlJahre = AnzahlJahre + 1
        AnzahlMonate = AnzahlMonate - 12
    Loop
 
    HilfsDatum = DateAdd("yyyy", -AnzahlJahre, EndDatum)
    HilfsDatum = DateAdd("m", -AnzahlMonate, HilfsDatum)
    AnzahlTage = DateDiff("d", AnfangsDatum, HilfsDatum)
 
    If AnzahlTage < 0 Then
        AnzahlMonate = AnzahlMonate - 1
        HilfsDatum = DateAdd("yyyy", -AnzahlJahre, EndDatum)
        HilfsDatum = DateAdd("m", -AnzahlMonate, HilfsDatum)
        AnzahlTage = DateDiff("d", AnfangsDatum, HilfsDatum)
    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