Zeitumwandlung

[khh]

hallo zusammen,

ich habe folgendes:
 arbeitszeit:= FormatDateTime('dd:hh:nn', zeit) ; wobei in zeit 2.0000000029999998 steht
nach meinem Verständnis sollten das doch etwas mehr als 2 Tage sein, oder?

Warum bekomme ich dann in arbeitszeit : '01:00:00'

Ich danke euch

[himitsu]

Weil das der 2. Tag nach dem Start der Zeitrechnung des TDateTime ist?
Und das war halt der 01.01.1900 und 0,26 Millisekunden nach Mitternacht

0 = 30.12.1899

[Mikkey]

Weil das "dd" für Tage steht.

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

[BadenPower]

Zitat von khh:

 arbeitszeit:= FormatDateTime('dd:hh:nn', zeit) ; wobei in zeit 2.0000000029999998 steht
nach meinem Verständnis sollten das doch etwas mehr als 2 Tage sein, oder?

Warum bekomme ich dann in arbeitszeit : '01:00:00'

Das Du nicht das bekommst, was Du erwartet hast ist ein Verständnisproblem was die Funktion FormatDateTime eigentlich macht.

Die Funktion zeigt als Ausgabe einen Datumswert an und keine Zeitspanne.

Dies wäre Dir aufgefallen, wenn Du noch yyyy und mm usw. hinzugefügt hättest, Also so:

 arbeitszeit:= FormatDateTime('yyyy mm dd hh:nn:ss z', zeit) ; Dann wäre als String

1900 01 01 00:00:00 0

herausgekommen.

Und bei diesem Wert wärst Du doch nie auf die Idee gekommen, das da jemand schon 1900 Jahre, 1 Monat und 1 Tag gearbeitet hätte.

[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