Datum/Zeit aus Fixdatum und Anzahl Sekunden berechnen?

[FBrust]

Hallo,

ich habe ein Gerät, das intern eine Art Uhrzeit speichert, die ich aber nicht direkt auslesen kann, sondern ich erhalte nur die Anzahl Sekunden seit dem 01. März 2000.

Meine Frage: Gibt es irgendwelche Routinen, mit denen ich das daraus resultierende Datum bzw. die Uhrzeit berechnen kann?

D7 hat zwar jede Menge Routinen dazu, aber keine scheint mir passend zu sein.



Danke


Gruß

Frank

[barf00s]

vllt bringt dir DecodeDateTime() was ... wenn du dann noch die differenz an sekunden seit dem 1.1.1970 und deinem 1.3.2000 mitbeachtest sollte das kein dingen sein ...

oder die unit DateUtils bringt nen paar funktionen mit die dir helfen könnten

[FBrust]

Hallo,

danke für Deine Antwort.

DecodeDateTime erwartet einen TDateTime-Wert als Parameter, den habe ich aber nicht, ich habe nur die Sekunden.

(Edit: Als Integer-Wert)

Und wozu brauche ich das Jahr 1970 wenn ich bereits den 1.3.2000 habe? Dann brauche ich doch nicht weiter zurückzugehen, oder?



Gruß
Frank

[barf00s]

nein aber die meisten datumsumwandlungsfunktionen basieren auf dem 1.1.1970 ...

[marabu]

Delphi-Quellcode:

function DeviceTime(seconds: cardinal): TDateTime;
begin
  Result := EncodeDate(2000, 3, 1) + seconds / SysUtils.SecsPerDay;
end;

Grüße vom marabu

[shmia]

Zitat von FBrust:

ich habe ein Gerät, das intern eine Art Uhrzeit speichert, die ich aber nicht direkt auslesen kann, sondern ich erhalte nur die Anzahl Sekunden seit dem 01. März 2000.

Meine Frage: Gibt es irgendwelche Routinen, mit denen ich das daraus resultierende Datum bzw. die Uhrzeit berechnen kann?

Delphi-Quellcode:

function ConvertXXX(sekunden:integer): TDateTime;
begin
   result := EncodeDate(2000, 4, 1);
   result := result + (sekunden / 60.0 / 24.0);
end;

[FBrust]

Hallo,

danke für Eure Antworten, der Einzeiler von Marabu funktioniert super.



Gruß

Frank