Einzelnen Beitrag anzeigen

Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#1

Real in eine Zeitangabe umwandeln

  Alt 10. Mär 2010, 12:44
Hallo, ich habe vor einen Real Wert in eine Zeitangabe umzuwandeln.
Ich habe mir dann das "gebastelt":



Delphi-Quellcode:
type
  TPTime = record
    Hours,
    Minutes,
    Seconds: integer;
end;


function RealToTime(RealTime: Real): TPTime;
  begin;
    Result.Seconds := Round(Frac(RealTime) * 60);
    Result.Hours := Trunc(Int(RealTime) / 60);
    Result.Minutes := Round(Frac(Int(RealTime) / 60) * 60);
  end;
Gibt mir bei "1,568" --> 00:01:34 aus.

Allerdings hab ich zweifel das es die beste Lösung ist, sowas zu machen da es bei mir wirklich immer ganz genau sein muss.
Und denke Profis machen das anders^^

Also wie kann man das noch machen, oder gibt es eine vorgefertigte Funktion für sowas, die ich mal wieder über sehen hab??
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat