• Zaloguj się!
• Zarejestruj się!

• Edycja
• Napisz nowy artykuł w tym dziale
• Obserwuj
• Historia i autorzy

TDateTime

TDateTime - typ danych języka Delphi

Typ TDateTime służy do przechowywania daty i czasu. Jest to dość specyficzny, gdyż wskazuje na typ Double:

type TDateTime = type Double;

Zmienna typu TDateTime przechowuje ilość dni, które upłynęły od 30 grudnia 1899 roku. Ponieważ typ TDateTime przechowuje wartości liczbowe, przypisanie mu wartości nie jest takie proste jak mogłoby się wydawać:

 
var
  D1, D2 : TDateTime;
begin
  D1 := '12-12-2006';
end.

Powyższy kod nie zostanie skompilowany ze względu na niekompatybilność typów. Należy tutaj użyć funkcji konwersji:

program Foo;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  D1, D2 : TDateTime;
  Diff : Double;
begin
  D1 := Now;
  D2 := StrToDate('2006-01-01');
 
  Diff := D1 - D2;
  Writeln('Dzisiaj jest ', DateToStr(D1), ', różnica w dniach: ', FloatToStr(Diff));
  Readln;
end.

Do zmiennej D1 przypisujemy aktualną datę i czas (funkcja Now); do zmiennej D2 przypisujemy datę 1 stycznia 2006. Następnie obliczamy różnice (ilość dni) jaka dzieli te dwie daty. Rezultat takich operacji wyświetlamy na ekranie stosując funkcje konwersji: DateToStr oraz FloatToStr.

Zobacz też:

• Konwersja typów
• Rzutowanie

Napisany 2008-09-08 13:37 przez PowerRobson

Mało troche... przydalo by sie jeszcze opisac funkcje skladowe itd.