Zeitumwandlung

[khh]

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

[himitsu]

Tage mit Trunc + IntToStr/Format und der Rest bleibt so.

Oder mit Magicwerten rechnen und +1. (bei minimal 1 und maximal 31 Tagen)

[DeddyH]

Rechne Dir doch einfach aus, wieviele Stunden bzw. Minuten 2.0000000029999998 Tage sind.

[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;

[p80286]

War Da nicht was?

Zitat von Dejan Vu:

Vor dem Komma steht nicht das Datum, sondern die Anzahl der Tage seid dem 30.12.1899. Und nach dem Komma steht keine Uhrzeit, sondern die seit Mitternacht vergangene Zeit als Bruchteil eines Tages.

in http://www.delphipraxis.net/185420-k...-funktion.html

Gruß
K-H

[khh]

ich danke euch, ihr seid einfach Spitze