Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi TDateTime SEHR ungenau (https://www.delphipraxis.net/105053-tdatetime-sehr-ungenau.html)

isofaind2 14. Dez 2007 20:51


TDateTime SEHR ungenau
 
Hallo ;)

mit dieser Funktion will ich eigentlich das Datum in einem Variable (String) speichern, aber es wird immer das Datum 30.12.1899 gespeichert, wieso? Das Datum meines Rechners ist richtig eingetragen. Woran kanns sonst liegen?

Grüße aus Düsseldorf

CalganX 14. Dez 2007 20:56

Re: TDateTime SEHR ungenau
 
Du solltest uns vielleicht sagen, wie du es bisher versucht hast. :roll:

Chris

thkerkmann 14. Dez 2007 20:59

Re: TDateTime SEHR ungenau
 
Hi,

dieses Datum entspricht dem Wert 0 einer tDateTime Variablen.

Sie enthält im Vorkomma-Anteil die Anzahl Tage als Wert ab dem 30.12.1899
und im Nachkomma-Anteil die Uhrzeit als Anteil eines Tages.

Gruss

isofaind2 14. Dez 2007 21:14

Re: TDateTime SEHR ungenau
 
Ich Trottel ^^

Delphi-Quellcode:
procedure Tnewsverf.Panel1Click(Sender: TObject);
var i: TDateTime;
    a: string;
begin
  a := Datetostr(i);
  news.memo.Lines.Add(a);
end;
wie kann ich in der variabel a das aktuelle Datum speichern? Hilfe!!! :)

mfg isofaind

sirius 14. Dez 2007 21:15

Re: TDateTime SEHR ungenau
 
Delphi-Quellcode:
i:=now;

thkerkmann 14. Dez 2007 21:17

Re: TDateTime SEHR ungenau
 
Zitat:

Zitat von isofaind2
Ich Trottel ^^

Delphi-Quellcode:
procedure Tnewsverf.Panel1Click(Sender: TObject);
var i: TDateTime;
    a: string;
begin
  a := Datetostr(i);
  news.memo.Lines.Add(a);
end;
wie kann ich in der variabel a das aktuelle Datum speichern? Hilfe!!! :)

mfg isofaind

Versuchs mal mit

Delphi-Quellcode:
  a := DateToStr(Date);
Die Funktion Date liefert das aktuelle Datum, Time die aktuelle Zeit und Now Datum und Uhrzeit.

Gruss


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:24 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