DateDiff v. DATEDIF
09.06.2006 20:21:49
Albin
kann mir jemand sagen, warum folgendes Makro ein falsches Ergebnis ausgibt?
Das Ergebnis ist 47 und das ist falsch!
Sub Makro2()
Dim GebTag As Date, Heute As Date
Dim Alter
GebTag = CDate("12.06.1959")
Heute = Date
Alter = DateDiff("yyyy", GebTag, Date)
MsgBox Alter
End Sub
Die Formel im Tabellenblatt liefert das richtige Ergebnis, nämlich 46.
In N3 steht wieder der 12.06.1959
=DATEDIF(N3;HEUTE();"Y")
Mein Problem ist, dass ich ein _richtiges_ Ergebnis per Makro brauche.
Ratlose Grüße
A.