Berechnung von Uhrzeiten

[Code]

Hallo.

In einem Delphi Projekt muss ich Uhrzeiten berechnen. Ich muss Uhrzeiten zusammen zählen, Differenzen zwischen Uhrzeiten brerechnen usw. Ich suche dafür eine Formel mit der das möglich ist. Wenn ich z. B. die Differenz von zwei Zeiten rechnen muss

Delphi-Quellcode:

   22:30 Uhr
-  20:15 Uhr
---------
    2:15 Uhr

kommt beim abziehen natürlich das falsche Ergebnis heraus. Soweit ich mich an meiner Schulzeit erinnere gab es dafür eine Formel od. Rechenweg. Das habe ich aber vergessen. Deswegen die Frage.

Gruß
Klaus

[DeddyH]

In der Unit DateUtils gibt es Funktionen für die Berechnung von Zeitdifferenzen (SecondsBetween z.B.).

[Code]

Zitat von DeddyH:

In der Unit DateUtils gibt es Funktionen für die Berechnung von Zeitdifferenzen (SecondsBetween z.B.).

Danke für Deinen Tipp. Die Unit kenne ich. Durch die Unit hat man nicht wirklich programmieraufwand eingespart. Im Grunde brauche ich eine Funktion die zusammen rechnet oder abzieht und die Nachkommastellen in ein Bruch verwandelt.

Gruß
Klaus

[hoika]

Hallo,

was genau ist denn bei dem 1. Post verkehrt ?

Du kannst die TDateTime übrigens ganz normal addieren.
Ich würde sie aber wegen möglichen Float-Problemen
immer zuerst in ganze Minuten / Sekunden umrechnen
und nach der Aktion wieder zurück.

-> SysUtils


Heiko

[hazard999]

Keine Formel notwendig.

DateTime ist eigentlich ein double.

Der Vorkommer-Anteil gibt die Tage seit 31.12.1899 an.

Der Nachkomma-Anteil ist die Zeit seit 0 Uhr.

Das heisst: 8 Uhr wäre 0.333 (periodisch) oder 8/24.
20 Uhr wäre 0.8333 (periodisch) oder 20/24.


Man kann einfach die Werte von einander abziehen.

Danach mit TimeToStr in einen string und fertig.

[Code]

Zitat von hazard999:

Keine Formel notwendig.

DateTime ist eigentlich ein double.

Der Vorkommer-Anteil gibt die Tage seit 31.12.1899 an.

Der Nachkomma-Anteil ist die Zeit seit 0 Uhr.

Das heisst: 8 Uhr wäre 0.333 (periodisch) oder 8/24.
20 Uhr wäre 0.8333 (periodisch) oder 20/24.


Man kann einfach die Werte von einander abziehen.

Danach mit TimeToStr in einen string und fertig.

Klasse der Tipp! Ich habe es noch nicht so ganz verstanden. Wie kommst Du auf den Wert 0.8333 oder 0.333. wie hast Du diese errechnet?


Gruß
Klaus

[DeddyH]

Wenn ein Tag 1 ist, sind 8 Stunden davon 8/24 bzw. 1/3 bzw. 0,3333. Logisch, oder?

[hoika]

Hallo,

aber wie gesagt, Vorsicht wegen periodischen Brüchen

0.33333 + .0.33333 + 0.33333 ist halt nicht 1.

Entschärfen lässt sich das Problem teilweise über die DateOf-Funktion (jedi),

ein Frac() liefert hier korrekt 0 (1 Tag 00:00 Stunden)
die DateOf liefert korrekt ein 1

Zusammen wäre das also 1 Tag oder 24 Stunden.


Heiko