EncodeDate

function EncodeDate(Year, Month, Day: Word): TDateTime;

Funkcja na podstawie parametrów zwraca datę w postaci typu TDateTime. Parametr Year określa rok (liczba z przedziału od 1 do 9999); Month - miesiąc (liczba z przedziału od 1 do 12), a Day - dzień (liczba z przedziału od 1 do 31, w zależności od miesiąca [#]_).

Przykład wykorzystania funkcji:

procedure TMyForm.MyButtonClick(Sender: TObject);
var
  MyDate : TDateTime;
begin
  MyDate := EncodeDate(StrToInt(Edit1.Text), StrToInt(Edit2.Text), StrToInt(Edit3.Text));
  Label1.Caption := DateToStr(MyDate);
end;

Zobacz też:

• DateToStr
• EncodeTime
• EncodeDateTime
• DecodeDate
• DecodeTime
• DecodeDateTime
• StrToInt
  .. [#] Np. miesiąc luty nie może mieć 31 dni, funkcja może nie zadziałać prawidłowo i wykonać wyjątek EConvertError.