Anzahl der Sekunden

[NeoXan]

Hallo,

ich habe DateTime1 und DateTime2
TDateTime Countdown
==> Countdown = DateTime1 - DateTime2
...

Ich möchte also die Sekunden zwischen den beiden DateTime haben...
So wie es jedoch ausschaut bekomme ich bei Countdown keinen TimeStamp, sonst dachte ich mir könnte ich nämlich einfach ein wenig teilen :)

SecondsBetween(DateTime1,DateTime2) etc. liefert nicht das gewünschte Ergebnis zurück...oder ich mache etwas falsch ;)

Beispiel:
DateTime1 = 29.01.2006 15:02
DateTime2 = 29.01.2006 18:00

Jetzt möchte ich die Sekunden zwischen den beiden Dates haben...und zwar, so dass wenn
DateTime1 = 29.01.2006 17:59:50
als Wert 10 bekomme...momentan bekomme ich eine riesige Zahl wo sich lediglich die letzten Stellen ändern...

vielen Dank
Florian

[marabu]

Hallo Florian,

woher die großen Zahlen bei dir herkommen, kann ich von hier aus nicht sehen.

So bekommst du die Zahl der Sekunden zwischen zwei Zeitpunkten:

Delphi-Quellcode:

uses 
  DateUtils;

function SecondsBetween(dt1, dt2: TDateTime): Cardinal;
begin
  Result := Round(Abs(dt2 - dt1) * SecsPerDay);
end;

Grüße vom marabu

[NeoXan]

Genau dasselbe "Problem"...beim Vergleich von

29.01.2006 16:03
zu
29.01.2006 16:10

bekomme ich 3347654801 als Ergebnis
Eigentlich müsste das doch 420 sein...7 Minuten (1 Minute = 60 Sekunden = 60*7 = 420)

[marabu]

Der Fehler ist wohl eher dort zu suchen, wo du die Zeitwerte bildest:

Delphi-Quellcode:

var
  dt1, dt2: TDateTime;
begin
  dt1 := Trunc(Now) + StrToTime('16:03:00');
  dt2 := Trunc(Now) + StrToTime('16:10:00');
  ShowMessage(IntToStr(SecondsBetween(dt1, dt2)));
end;

Zeige mal, wie du das machst.

marabu

[xaromz]

Hallo,

könnte es sein, das Du fälschlicherweise die grössere von der kleineren Zahl abziehst?

Gruß
xaromz

[3_of_8]

Würde er dann nicht eine negative Zahl bekommen?

[xaromz]

Hallo,

Zitat:

Zitat von 3_of_8

Würde er dann nicht eine negative Zahl bekommen?

mit vielen Sekunden...

Gruß
xaromz