Zeitumwandlung

[Popov]

Zitat von khh:

ok, das leuchtet mir ein,
wie bekomme ich sonst die Stunden; Minuten in ein lesbares Format?

Delphi-Quellcode:

var
  AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word;
  d, t: Double;
  dt: TDateTime;
begin
  dt := 2.0000000029999998;
  d := Trunc(dt);
  t := Trunc(Frac(dt) * 24 * 60 * 60 * 1000);

  AHour := Trunc(t / 60 / 60 / 1000);
  t := t - Trunc(AHour * 60 * 60 * 1000);
  AMinute := Trunc(t / 60 / 1000);
  t := t - Trunc(AMinute * 60 * 1000);
  ASecond := Trunc(t / 1000);
  t := t - Trunc(ASecond * 1000);
  AMilliSecond := Trunc(t);

  AHour := AHour + Trunc(d * 24); //Tage in Stunden umrechen und zu den Stunden dazugeben

  ShowMessageFmt('Stunden: %d; Minuten: %d; Sekunden: %d: Millisekunden: %d', [AHour, AMinute, ASecond, AMilliSecond]);
end;

oder

Delphi-Quellcode:

var
  AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word;
  dt: TDateTime;
begin
  dt := 2.0000000029999998;
  DecodeTime(dt, AHour, AMinute, ASecond, AMilliSecond);

  AHour := AHour + Trunc(dt * 24); //Tage in Stunden umrechen und zu den Stunden dazugeben

  ShowMessageFmt('Stunden: %d; Minuten: %d; Sekunden: %d: Millisekunden: %d', [AHour, AMinute, ASecond, AMilliSecond]);
end;