Zeit dazu addieren

**FunThomas**

Hallo Allerseits,

ich quäle mich jetzt seit einer Weile mit TDateTime und TTimeStamp rum aber werde nicht so recht glücklich.
Ich möchte mir eine GUI bauen die ein Diagramm anzeigt mit Zahlenwerten die entsprechend des Zeitpunktes geordnet sind.
Jetzt dachte ich mir ich kann ja mit Mouseover die Postionen holen und würde dann gern entsprechend der Koordinaten mir meine Zeit und den Wert berechnen (oder den nächsten aus der Werteliste) raussuchen und in einem extra Edit anzeigen lassen.

Primär geht es mir nur um die Zeitberechnung, ich habe eine TDateTime Startzeit (entspricht X=0), meine Koordinate in X Richtung (vom Mouseover) und einer Konstante PixelPerSecond.

Ich dachte mir am einfachsten ist es mit einem TTimeStamp den ich anlege und weise dann einfach der Time den Wert an Milisekunden zu:

markieren

Code:

			var

  Diff_TS   : tTimeStamp;

  Zeit_diff : TDateTime;

  Diff_TS.Time := Round (X * PixelPerSecond) * 1000;

  Zeit_diff    := TimeStampToDateTime(Diff_TS);

Leider bin ich damit am 01.11.4662

Gibt es einen einfachen Weg um zu einem TDateTime eine gewisse Anzahl an Sekunden zu addieren, welches auch dann Datumsübergreifend funktioniert?

Danke im Voraus,
Thomas

Zeit dazu addieren

Zeit dazu addieren

Forumregeln