|
Registriert seit: 6. Apr 2005
10.109 Beiträge
|
Re: ein Jahrhundert zurückrechnen ?
8. Jul 2005, 12:50
Delphi-Quellcode:
function PrevCentury(dt: TDateTime): TDateTime;
var
y, m, d: word;
begin
DecodeDate(dt, y, m, d);
Result := EncodeDate(y - 100, m, d) + Frac(dt);
end;
Grüße vom marabu
|
|
|
Zitat
|