Zeitwert (in Sekunden) mit Systemzeit addieren?

Diach · Beiträge: 27

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 · Beiträge: 439 Erhaltene Danke: 3 W2K D7

markieren

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:

markieren

Delphi-Quelltext

1:	ShowMessage(AdditionZeitspanne(now, DeineFunktionZurErmittlungDerZeitspanne))

Hoffe ich konnte helfen !

_________________
Man sollte keine Dummheit zweimal begehen, die Auswahl ist schließlich groß genug.

jaenicke · Verfasst: Mi 10.01.07 17:06

markieren

Delphi-Quelltext

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

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme