Ich setzte mitzeit := zeit + encodetime(0,1,0,0); meine ttime variable immer um eine Stunde weiter!
Wie kann ich es machen, dass am Ende des Tages meine TDate variable um einen Tag weiter gesetzt wird?

Zitat von Nicolai1605:

Ich setzte mitzeit := zeit + encodetime(0,1,0,0); meine ttime variable immer um eine Stunde weiter!
Wie kann ich es machen, dass am Ende des Tages meine TDate variable um einen Tag weiter gesetzt wird?

Hi,

kannst du nicht Now() verwenden?

mfG
mirage228

Nein, das ist für eine Simulation und die soll nicht in Echtzeit laufen!

Weiß keiner einen Rat?

Moin!

Fragen gibt es...

Ein Blick in die Hilfe zu TDate steht:

Zitat von Delphi 5 OH:

Der Typ TDate wird zur Darstellung eines Datums verwendet.

Unit

Controls

type TDate = type TDateTime;

Beschreibung

TDate repräsentiert den speziellen Typ eines TDateTime-Wertes ohne Dezimalstellen. Ein TDate-Wert gibt die Anzahl der Tage an, die seit dem 30.12.1899 vergangen sind.

Somit:

markieren

Code:

Var
  d : TDate;
Begin
  d := d + 1;
End;

MfG
Muetze1

moin,

mal vorne weg, gibt es die Typen tDate und tTime überhaupt? ist das nicht alles vom Typ tDatetime?
bei mir in der OH steht nämlich:

Zitat:

type TDate = type TDateTime;

Bei TDatetime-Werten ist das ganze nämlich recht einfach, man behandelt sie einfach als real-Wert.
Die Vorkommastellen geben die ganzen Tage seit anno 1900 (etwa) an, der Nachkommateil den Rest.

Erhöhst du also deine Variable immer um 1/24 (entspricht einer Stunde) Stunde wird ganz automatisch auch der Tag erhöht.

PS: Ich hab irgendwie den Eindruck, dass ich deine Frage nicht ganz verstanden hab

EDIT: und wieder mal zu langsam

Moin!

Oh ja - sorry, es ging um Stunden und nicht um einen Tag, sorry, falsch gelesen. Also nimm die Lösung von xineohp, die stimmt...

Und ja, die Typen TDate und TTime sind nur neue Typen von TDateTime mit eigenen RTTI Informationen und eigenen Property Editoren respektive, sind aber soweit das gleiche...

MfG
Muetze1