Berechnung von Zeitdifferenzen

Das S · Beiträge: 101 Win XP D7 Prof

Hi,

ich bin gerade dabei, eine Reisekostenabrechnung zu schreiben. Nun habe ich folgendes Problem, welches ich mit einem Beispiel beschreiben möchte:

Ich fahre für einen Kundenbesuch am 21.05.2003 um 15.00 Uhr los und komme am 24.05.2003 um 19.00 Uhr wieder zurück.

Das Programm soll mir nun ausrechnen,

1. wieviel volle Tage in diesem Zeitraum lagen (in diesem Beispiel zwei, der 22.05.2003 und der 23.05.2003)
2. wieviel von den "nicht vollen Tagen" mehr als 8 Stunden hatte aber weniger als 14 (in diesem Beispiel einer, nämlich am 21.05.2003 von 15.00 Uhr bis 24 Uhr=9 Stunden)
3.) wieviel von den "nicht vollen Tagen" mehr als 14 Stunden hatte aber weniger als 24 Stunden (in diesem Beispiel einer am 24.05.2003 von 0.00 Uhr bis 19.00 Uhr=19 Stunden)
alles andere, also weniger als 8 Stunden soll er garnicht erst beachten bzw. berechnen.

Ich zerbreche mir hier den Kopf aber ich komme da nicht daruf. Die Eingabe der Daten erfolgt in vier Textfelder.

Vielen Dank für Eure Mühen

Schöne Grüße

Das S

barfuesser · Beiträge: 324

Sieh mal in der Onlinehilfe unter Datum/Zeit (Routinen) nach. Da solltest Du finden, was Du brauchst.

barfuesser

Klabautermann · Verfasst: Do 23.10.03 10:31

Hallo Das S,

das ganze wird wesentlich leichter, wenn du dir in der Delphi Hilfe mal anguckst, wie der Datentyp tDateTime aufgebaut ist. Dann wirst du erkennen, wie du einfach mit diesen Rechnen kannst.

Für die Eingabe würde ich anstelle von 4 Edit Feldern besser auf 2 DateTimePicker zurückgreifen. Das ist für den Benutzer Angenehmer (er kann sich z.B. einen Kalender ausklappen) und für dich einfacher, da Fehleingaben vermieden werden und du direckt DateTime Werte auslesen kannst.

Gruß
Klabautermann

Das S · Beiträge: 101 Win XP D7 Prof

Vielen Dank Ihr beiden. Ich weiß aber nochnichteinmal ansatzweise, wie ich es umsetzen muß. Kann mir einer vielleicht ein Codebeispiel geben.

Danke

Das S

joerg68 · Beiträge: 116 Win 2000 D5Enterprise

Falls du bei 4 Eingabefeldern bleibst müßte Dir das weiterhelfen

Also um Deine ganzen Tage zu erhalten müßte folgender Code Funktionieren

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
 Differenz : integer;

Differenz := Round(StrToDate(Endtermin.text) - StrToDate(Starttermin.text))-1;
if Differenz < 0 then
    Differenz := 0;

Allerdings solltest Du mit Eceptions arbeiten um falsch eingegebene Daten abzufangen.

Die Uhrzeit wird mit
StrToDateTime(StartUhrzeit) konvertiert. Wobei du hier dann Werte zwischen 0 und 1 als Rückgabe bekommst.

Die Berechnung wieviel Stunden das dann von bzw. ab Mitternacht dann sind bekommst du bestimmt auch alleine hin :wink:

Gruß
Jörg

_________________
Aus den Chaos sprach eine Stimme " Lächele und sei froh denn es könnte schlimmer kommen". Und ich lächelte und ich war froh.
UND ES KAM SCHLIMMER

Das S · Beiträge: 101 Win XP D7 Prof

Also, nicht das du denkst das ich dich verarschen will :oops:

, aber ich blicke die Zeit- und Datumsberechnung nicht. Wie bitte soll ich berechnen, wieviel Stunden bis Mitternacht sind usw. Uppppsss, ob Du nochmal so freundlich wärst und mir da nochmal ein Beispiel zeigst. Du hattest recht mit den Datetimepicker. Es ist einfacher und vor allen sicherer.

Vielen Dank für den Code

Das S

joerg68 · Beiträge: 116 Win 2000 D5Enterprise

Also mit StrToDateTime(Startuhrzeit.text) bekommst Du die Uhrzeit als Float zwischen 0 und 1. Für die Berechnung am Abreisetag , also für den Abreisetermin bis Mitternacht.

markieren

Delphi-Quelltext

1:
2:

if (1-StrToDateTime(Startuhrzeit.text)  > 8/24) and (1-StrToDateTime(Startuhrzeit.text)< 14/24) then
   AchtBis14Stunden := true;

Ich hoffe das hilft dir weiter
Den Rest kann man durch nachdenken rausbekommen :wink:

Gruß
Jörg

_________________
Aus den Chaos sprach eine Stimme " Lächele und sei froh denn es könnte schlimmer kommen". Und ich lächelte und ich war froh.
UND ES KAM SCHLIMMER

Das S · Beiträge: 101 Win XP D7 Prof

Ich danke Dir, ich glaube und hoffe, daß ich das jetz mal endlich geblickt habe. Den Rest mache ich selber :lol:

Das S

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme