Autor Téma: Datum 30.12.1899  (Přečteno 384 krát)

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 274
  • Karma: 1
    • Verze Delphi: Delphi 7
Datum 30.12.1899
« kdy: 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

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 274
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Datum 30.12.1899
« Odpověď #1 kdy: 18-07-2019, 15:19:43 »
Vyřešeno pomocí

Kód: Delphi [Vybrat]
  1. StatusBar1.Panels[0].Text := (FormatDateTime('c', Now))

Offline raul

  • Hrdina
  • ****
  • Příspěvků: 262
  • Karma: 14
    • Verze Delphi: FPC :D
Re:Datum 30.12.1899
« Odpověď #2 kdy: 18-07-2019, 15:35:10 »
musim sorry. OMG
Lazarus 1.6.3:), FPC, Intel/Arm, Windows/Linux

Offline Morrison

  • Hrdina
  • ****
  • Příspěvků: 262
  • Karma: 12
    • Verze Delphi: D5, XE2
Re:Datum 30.12.1899
« Odpověď #3 kdy: 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.  
nil