Allerdings gibts dazu eine bessere Art um mit Datums zu rechnen


GebTag = \"07.04.1970\"
StichTag = \"05.05.2010\"
Jahre = DateDiff(\"yyyy\", GebTag , StichTag )






\' Ausgangsdatum (z.B. Geburtsdatum)
Datum1 = \"05.05.1973\"

\' Heute
Datum2 = Format$(Now, \"dd.mm.yyyy\")

\' Anzahl vergangener Sekunden seit Datum1
Dim Sekunden As Long
Sekunden = DateDiff(\"s\", Datum1, Datum2)

\' Anzahl vergangener Minuten seit Datum1
Dim Minuten As Long
Minuten = DateDiff(\"n\", Datum1, Datum2)

\' Anzahl vergangener Stunden seit Datum1
Dim Stunden As Long
Stunden = DateDiff(\"h\", Datum1, Datum2)

\' Anzahl vergangener Tage seit Datum1
Dim Tage As Long
Tage = DateDiff(\"d\", Datum1, Datum2)

\' Anzahl vergangener Wochen seit Datum1
Dim Wochen As Long
Wochen = DateDiff(\"ww\", Datum1, Datum2)

\' Anzahl vergangener Monate seit Datum1
Dim Monate As Long
Monate = DateDiff(\"m\", Datum1, Datum2)

\' Anzahl vergangener Jahre seit Datum1
Dim Jahre As Long
Jahre = DateDiff(\"yyyy\", Datum1, Datum2)