TDateTime um 1 sek erhöhen

[hansmuff]

Hallo, wie kann ich eine TDateTime Variabel um 1 sek erhöhen, aber ohne einen Timer zu benutzen.

Und wie kann ich eine TDateTime in einen Integer umwandeln. Vielleicht könnt ihr mir auch sagen welchem Wert z. B. 05.09.2008 11:22:33 entspricht?

Danke im Voraus,
Chris

[grenzgaenger]

erhöhen um eine sekunde mit IncSec

ansonten mit trunc und frac

zu deiner letzten frage, selber ausprobieren :mrgreen:

[BullsEye]

Delphi-Quellcode:

FormatDateTime

[sirius]

TDateTime ist ein Double un zählt die Tage seit dem 30.12.1899. Sekunden, Minuten und Stunden sind entsprechende Bruchteile von den Tagen. Jetzt kannst du dir selber überlegen, was du willst.
In der Unit DateUtils gibt es auch schöne Funktionen (siehe Hilfe).

[SubData]

Manuell wäre eine Sekunde mehr:

Delphi-Quellcode:

  dZeit := dZeit + (1.0 / 86400.0)

Wäre 1 Tag geteilt durch 86400 (Sekunden pro Tag).
Damit hast du eine Sekunde.

[SubData]

Ah, achso.
Danke, soweit denken is um die Uhrzeit nicht mehr ;-)

[hansmuff]

Danke für die vielen Antworten,
hat mir sehr weitergeholfen!


mfg Chris

[Helmi]

Zitat:

Zitat von SubData

Manuell wäre eine Sekunde mehr:

Delphi-Quellcode:

  dZeit := dZeit + (1.0 / 86400.0)

Wäre 1 Tag geteilt durch 86400 (Sekunden pro Tag).
Damit hast du eine Sekunde.

Es gibt auch die konstante OneSecond