Hallo Forums-Freunde,
ich hab' ein Problem bei der Funktion DateDiff/Datedif. In VBA bringt der folgende Code andere Ergebnisse als im Arbeitsblatt:
Sub Alter1()
Dim AlterInJahren As Single
Dim AlterInMonaten As Single
Dim AlterInTagen As Single
AlterInJahren = DateDiff("Y", [A1], [B1])
'Hier kommt 8353 (=Tage) raus:
MsgBox AlterInJahren
AlterInMonaten = DateDiff("M", [A2], [B2])
'Hier kommt 275 statt 274 Monate raus:
MsgBox AlterInMonaten
AlterInTagen = DateDiff("D", [A2], [B2])
'Hier ist's richtig: 8353 Tage
MsgBox AlterInTagen
End Sub
Im Arbeitsblatt: