Real in eine Zeitangabe umwandeln

[himitsu]

Delphi-Quellcode:

function RealToTime(RealTime: Real): TPTime;
  var i: Integer;

  begin
    i := Round(RealTime * 60);  // i = Sekunden
    Result.Seconds := i mod 60;
    Result.Minutes := (i div 60) mod 60;
    Result.Hours   := i div 3600;
  end;

oder

Delphi-Quellcode:

function RealToTime(RealTime: Real): TPTime;
  var i: Integer;

  begin
    DecodeTime(RealTime / 1440, Result.Hours, Result.Minutes, Result.Seconds, i);
  end;