Forum Delphi.cz

Delphi => Obecné => Téma založeno: Kony 18-07-2019, 14:46:33

Název: Datum 30.12.1899
Přispěvatel: Kony 18-07-2019, 14:46:33
Ahoj, do StatusBaru chci pridat datum a porad mi to načítá špatný datum a to 30.12.1899

Kód: Delphi [Vybrat]
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. var
  3.  today : TDateTime;
  4. begin
  5.  
  6.  StatusBar1.Panels[0].Text := formatdatetime('dd/mm/yyyy', today);
  7.  
  8. end;

Čas v PC mám v pořádku
Název: Re:Datum 30.12.1899
Přispěvatel: Kony 18-07-2019, 15:19:43
Vyřešeno pomocí

Kód: Delphi [Vybrat]
  1. StatusBar1.Panels[0].Text := (FormatDateTime('c', Now))
Název: Re:Datum 30.12.1899
Přispěvatel: raul 18-07-2019, 15:35:10
musim sorry. OMG
Název: Re:Datum 30.12.1899
Přispěvatel: Morrison 18-07-2019, 15:48:20
Je hezký, že si nadefinuješ proměnnou typu TDateTime, ale dokud ji nenaplníš nějakou hodnotou, nemůžeš očekávat jakoukoliv smysluplnou práci s ní. To, že jsi ji pojmenoval "today" kompilátoru opravdu nestačí, aby pochopil tvůj záměr.
Takže pro příště si proměnnou nejdříve nastav (např. tím Now) a pak s ní pracuj dál.

Kód: Delphi [Vybrat]
  1. today := Now;
  2.