Einzelnen Beitrag anzeigen

MStoll

Registriert seit: 15. Nov 2005
131 Beiträge
 
Turbo Delphi für Win32
 
#18

Re: TDateTime + Mikrosekunden

  Alt 7. Nov 2006, 17:23
Zitat von 3_of_8:
Ja, wird es. Denn die DateUtils-Routinen erwarten TDateTime und keine Extendeds. Du könntest natürlich einen Typencast vornehmen, aber dadurch gewinnst du gar nichts.
Mal angenommen, ich mache also eine Funktion die etwa so aussieht:

Delphi-Quellcode:
function EncodeMyTime(h,m,s,ms,mys : word) : extended;
begin
     result := EncodeTime(h,m,s,ms);
     result := result + MysToTime(mys);
end;
und eine Prozedur, die etwa so aussieht:

Delphi-Quellcode:
procedure DecodeMyTime(t : extended; var h,m,s,ms,mys : word);
begin
     DecodeTime(TDateTime(t), h, m, s, ms);
     DecodeTime(t, mys);
end;
Was würde dadran schief gehen?

Mein Ziel ist es halt, die Mikrosekunden so einzukodieren, dass z.B. ihr Übertrag bei Addition sich entsprechend auf die Millisekunden auswirkt, d.h. im allgemeinen, dass sich diese Mikrosekunden in die Berechnungen nahtlos einfügen und ich die für die Dekodierung von Stunden, Minuten, Sekunden und Millisekunden weiterhin DecodeDate nehmen könnte.
  Mit Zitat antworten Zitat