|
Registriert seit: 24. Apr 2003
Ort: Magdeburg
218 Beiträge
Delphi 7 Professional
|
ein Jahrhundert zurückrechnen ?
8. Jul 2005, 12:42
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
Andreas Göllner
("`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
"Ich kann Dir nur die Tür zeigen, durchgehen musst Du ganz allein."
Wer ist die Tür? Jesus!
|