Datum und Zeit minus Jetzt gleich Differenz

[DennisHB]

Delphi-Quellcode:

function DateTimeToMSecs (dt:TDateTime) : Comp;
begin
     result := TimeStampToMSecs( DateTimeToTimeStamp( dt ) );
end;

function MSecsToDateTime   (secs:comp)    : TDateTime;
begin
     result := TimeStampToDateTime( MSecsToTimeStamp( secs ) );
end;

procedure BerechneBauFertig(BauGestartet : TDateTime);
var
  bauFertigUm : TDateTime;
  verbleibendeZeit : comp;
begin
  verbleibendeZeit := DateTimeToMSecs(now) -  DateTimeToMSecs(BauGestartet); 
  bauFertigUm := MSecsToDateTime(verbleibendeZeit );
end;

so sollte es gehen...
benutz das ganze für ein Tool zu nem BrowserGame

gruss Dennis