Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Zeitwert (in Sekunden) mit Systemzeit addieren?


Diach - Mi 10.01.07 14:03
Titel: Zeitwert (in Sekunden) mit Systemzeit addieren?
Hallöchen.

Ich hab da ne Funktion, die mir eine Zeitspanne in Sekunden zurückgibt. Ich habe mir auch behelfsweise eine Funktion geschrieben, die mir aus den Sekunden einen string geben kann in Form von T:H:M:S.

Nur würde es mich interessieren, ob ich es hinbekommen kann, dass das Programm mir auch sagen kann (ausgehend von der aktuellen Systemzeit) an welchen Datum/Uhrzeit die Zeitspanne(die ich ja in Sekunden habe) verstrichen ist.

Also Beispielweise:
Jetzt ist der 10.01.2007, 12:55:00 und Die errechnete Zeitspanne beträgt 86465 Sekunden.
Ausgabe: Zeit ist verstrichen am : 11.01.2007, 12:56:05

Danke schonmal im Voraus!


chrisw - Mi 10.01.07 15:34

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
 
function AdditionZeitspanne (DatumUhrZeit: TDateTime; ZeitSpanneInSek: Integer): String;
var t : TDateTime;
    s : TTimeStamp;
begin
  s := DateTimeToTimeStamp(DatumUhrZeit);
  s.Time := s.Time + ZeitSpanneInSek * 1000;
  Result := DateTimeToStr(TimeStampToDateTime(s));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(AdditionZeitspanne(StrToDateTime('10.1.07 12:55:00', 86465));
end;



sollte eigentlich '11.01.2007 12:56:05' ergeben !
(Natürlich aufpassen auf die Grenzen vom Integer)


Dein Aufruf wäre dann:

Delphi-Quelltext 
1:
 
ShowMessage(AdditionZeitspanne(now, DeineFunktionZurErmittlungDerZeitspanne))


Hoffe ich konnte helfen !


jaenicke - Mi 10.01.07 17:06

Delphi-Quelltext 
1:
 
  ShowMessage(DateTimeToStr(now + StrToInt(edtSeconds.Text) / 86400));

In dem Edit stehen hier im Beispiel die Sekunden...


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!