ein Jahrhundert zurückrechnen ?

[spacewolf]

Gibts ne einfach möglichlichkeit einen TDatewert um 100 Jahre zurückzurechnen.
Ich bekomme in einer Software von mir Geburtsdaten von Menschen rein die noch gar nicht leben könnten wie z.B. 12.12.2064.
Naja, und ich würde gern das ganze Problem zumindest umgehen in dem ich sage, wenn Datum größer als heute, dann minimiere das Datum um hundert jahre....

einen Tag rechne ich mit:

 tag := now - 1 zurück.

Ein Jahr vielleicht nich mit minus 365 .
Aber 100 Jahre mit berücksichtigung der Schaltjahre übersteigt mein Wissen in Datums und Zeitberechnung.

Wollte schon alles in Strings umwandeln und dann aus "20" einfach "19" machen. Aber mein Kollege, findet das wohl zu "quick And dirty" - habt ihr ne gute Idee ?

Andreas