Zeitberechnung eigentlich simpel, aber wie?

[cherry]

hy ich muss für meine Applikation eine simple Zeitberechnung anstellen.
Ich soll ausrechnen wieviele Stunden und Minuten zwischen zwei gegebenen Zeiten
liegen! Die Zeiten werden im 24h Format angegeben. Hier ein Beispiel:

von(gegeben) bis(gegeben) dazwischen(berechnen)
22:30 02:11 03:41

jmd schon mal gemacht?

[TeronG]

StrToDate bzw. StrToDateTime

Zeit-bis - Zeit-von = Zeit-dazwischen

(bei zeit-bis und zeit-von noch einen Tag mitangeben (vorkommaanteil) wegen der überschreitung der 24Uhr grenze)

[cherry]

das ist ja genau mein problem...
der Anwender soll das nicht angeben müssen, das Programm soll das
selber merken...

ah, oder soll ich das so machen.

wenn von > bis dann ist bis einen Tag später?!

[Matze]

Hi

Einfach mal die Suchfunktion nutzen und fündig werden. Evtl. musst du noch Anpassungen vornehmen.

[cherry]

Danke hat bestens funktioniert. Ich hab ja auch gesucht, nur nichts gefunden...
danke danke daaannnnkee

[TeronG]

Zitat:

Zitat von cherry

wenn von > bis dann ist bis einen Tag später?!

Da sollte auch Abs weiterhelfen oder :gruebel:

Delphi-Quellcode:

abs(a-b)

[cherry]

Abs?

tja auf jeden fall hatte ich mit dieser Aussage recht und
es funktioniert jetzt auch so..

[Matze]

Abs :roll:

Edit: Das bedeutet übrigens, dass du in die Delphi-Hilfe schauen sollst. Die hilft dir bei solchen Fragen gerne weiter.

[TeronG]

OH:

Abs (Funktion)

Beschreibung
Abs gibt den absoluten Wert des Arguments X zurück.
X ist ein Ausdruck des Typs Integer oder Real.

[cherry]

oh, :oops: , ja danke

[TeronG]

:twisted: :mrgreen:

[Hawkeye219]

Hallo,

ob Abs() wirklich das geeignete Mittel ist? Zwischen den im ersten Beitrag angegebenen Zeitpunkten liegt ein Zeitraum von 3:41 h, und nicht etwas 20:19 h (vorausgesetzt, der zweite Zeitpunkt liegt hinter dem ersten).

Wenn kein Datum angegeben werden soll, muß das Programm diese Intelligenz einbringen, wie es im 2. und 3. Beitrag schon angedeutet wurde:

Delphi-Quellcode:

var
  DT1, DT2 : TDateTime;
begin
  DT1 := StrToTime(edFrom.Text);
  DT2 := StrToTime(edTo.Text);
  labDifference.Caption := TimeToStr(DT2 - DT1 + Ord(DT2 < DT1));
end;

Gruß Hawkeye

[TeronG]

:gruebel: hmmm ..
ok .. habich wohl zu schnell gepostet und zu wenig gedacht :oops:

[cherry]

meine Funktion sieht nun so aus, hab Sie Gröstenteils
übernommen:

Delphi-Quellcode:

function TFrameDaten.Act_TimeBetween(von, bis : String): TDateTime;
var
 H,M: integer;
 R: Real;
 start,ende: TDateTime;
begin
  start := StrToDateTime(von);
  ende := StrToDateTime(bis);
  if start > ende then
    ende:= IncDay(ende);
  R:= HourSpan(start,ende);
  H:= Round(Int(R));        // Stunden
  M:= Round(Frac(R)* 60);   // Minuten
  if M = 60 then begin      // aus 60 Min wird 1 volle Stunde
    M:= 0;
    Inc(H);
   end;
  result := StrToDateTime(Format('%d:%.2d',[H, M]));
end;

Es hesisst ja man soll nie eine "Fremdfunktion" verwenden, wenn man nicht genau weis was da passiert...
na ja, also ich kappier alles voll und ganz ausser:

kann mir jmd sagen was die Parameter '%d:%.2d' bei dieser Funktion GENAU machen
Format('%d:%.2d',[H, M])); ??

ungefähr weisichs ja nur kanns mal jmd GANZ GENAU erklären? das würde mich
beeindrucken...

[Hobby-Programmierer]

Zitat:

Zitat von cherry

Delphi-Quellcode:

  result:= StrToDateTime(Format('%d:%.2d',[H, M]));

% - Platzhalter (an welcher Stelle im Text (d) eingefügt werden soll)
d - Dezimalwert
: - TimeSeperator
2d - Dezimalwert (mind. 2-stellig; aus '5' wird bspw. '05'

siehe auch Format-Strings oder hier

LG Mario

[Daniel G]

An dieser Stelle sei auch mal auf drei tolle Funktionen der Unit DateUtils hingewiesen:

Delphi-Quellcode:

function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;

Und ja, sie machen genau das, was man denkt, was sie machen könnten... :mrgreen:

[Hawkeye219]

Hallo Daniel,

Zitat:

Zitat von Daniel G

Und ja, sie machen genau das, was man denkt, was sie machen könnten...

...und damit leider nicht das, was cherry möchte. Die Routinen sortieren nämlich die übergebenen Parameter, wordurch man nicht mehr erkennen kann, ob ein Tagwechsel vorliegt.

Gruß Hawkeye

[Angel4585]

Also wenn ich das Recht verstehe soll er sagen ob zweischen Datum1 und Datum 2 ein Tagwechsel vorliegt oder?

Ich würde das so machen

Delphi-Quellcode:

if (Trunc(Datum1)<Trunc(Datum2))then
  ShowMessage('Es liegt ein Tagwechsel vor')
else ShowMessage('Die beide Daten sind am gleichen Tag');

[Daniel G]

Zitat:

Zitat von Hawkeye219

und damit leider nicht das, was cherry möchte.

Das macht seine Funktion in Beitrag #14 aber auch nicht. Insofern scheint ihn das ja nicht zu stören... ;)

[Hobby-Programmierer]

Tach ...,

Zitat:

Zitat von Daniel G

Zitat:

Zitat von Hawkeye219

und damit leider nicht das, was cherry möchte.

Das macht seine Funktion in Beitrag #14 aber auch nicht. Insofern scheint ihn das ja nicht zu stören... ;)

... sehr wohl addiert er 24h hinzu, wenn EndeZeit < StartZeit

Delphi-Quellcode:

  if start > ende then
  ende:= IncDay(ende);

Zitat:

Zitat von Daniel G

An dieser Stelle sei auch mal auf drei tolle Funktionen der Unit DateUtils hingewiesen:

Delphi-Quellcode:

function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;

Natürlich hätte der OP auch [oh]function HoursBetween(const ANow, AThen: TDateTime): Int64;[/oh] nutzen können, aber es gibt noch mehr 'tolle' Functionen in o.g. Unit! Eine davon benutzt er :wink:
[oh]function HourSpan(const ANow, AThen: TDateTime): Double;[/oh]

LG Mario

[cherry]

Also nochmals vielen Dank euch allen
und ein recht schönes Wochenende allerseits!

Gruss enemyleft