Registriert seit: 27. Nov 2017
2.508 Beiträge
Delphi 7 Professional
|
AW: Zeit dazu addieren
14. Dez 2021, 13:42
TDateiTime ist einfach nur eine Zahl, bei der der Vorkommaanteil die Anzahl der Tage angibt, der Nachkommaanteil die Teile eines Tages.
TDateTime = 1 -> 1 Tag.
1 Tag = 60 Sekunden * 60 Minuten * 24 Stunden = 86400 Sekunden.
1 / 86400 = 1,1574074074074074074074074074074e-5.
Wenn Du die Anzahl der Sekunden weißt, dann rechnest Du einfach Anzahlsekunden * 1 / 86400.
Durch Addition oder Subtraktion kannst Du dann eine um die Anzahl Sekunden in der Zukunft liegenden bzw. einen in der Vergangenheit liegenden Zeitpunkt errechnen.
Bei Millisekunden rechnest Du dann halt mit 1 / 86400000 * Millisekunden.
Zur Vereinfachung machst Du Dir irgendwo einen Konstante dtOneMilliSec : TDateTime = 1 / 86400000;
und rechnest dann mit der, das macht den Quelltext auch sofort lesbarer.
|