If D1Monat > D2Monat Then
Wert = D2Jahr-D1Jahr-1
Else
If D1Monat < D2Monat Then
Wert = D2Jahr-D1Jahr
Else
If D1Tag > D2Tag Then
Wert = D2Jahr-D1Jahr-1
Else
Wert = D2Jahr-D1Jahr
End If
End If
End If