Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi TDate manuell setzen! (https://www.delphipraxis.net/23786-tdate-manuell-setzen.html)

Nicolai1234 9. Jun 2004 17:38


TDate manuell setzen!
 
Ich setzte mit
Delphi-Quellcode:
zeit := 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?

mirage228 9. Jun 2004 17:43

Re: TDate manuell setzen!
 
Zitat:

Zitat von Nicolai1605
Ich setzte mit
Delphi-Quellcode:
zeit := 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

Nicolai1234 9. Jun 2004 17:47

Re: TDate manuell setzen!
 
Nein, das ist für eine Simulation und die soll nicht in Echtzeit laufen!

Nicolai1234 9. Jun 2004 19:30

Re: TDate manuell setzen!
 
Weiß keiner einen Rat?

Muetze1 9. Jun 2004 19:52

Re: TDate manuell setzen!
 
Moin!

Fragen gibt es...

Ein Blick in die Hilfe zu TDate steht:

Zitat:

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:

Code:
Var
  d : TDate;
Begin
  d := d + 1;
End;
MfG
Muetze1

xineohp 9. Jun 2004 20:02

Re: TDate manuell setzen!
 
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 :roll:

EDIT: und wieder mal zu langsam :roll:

Muetze1 9. Jun 2004 22:01

Re: TDate manuell setzen!
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz