EncodeDate
Модуль: SysUtils
function EncodeDate(Year, Month, Day: Word): TDateTime;
Функция на основе параметров возвращает дату в виде типа TDateTime . Параметр Year указывает год (число от 1 до 9999); Месяц — месяц (число от 1 до 12) и День — день (число от 1 до 31, в зависимости от месяца [#] _).
Пример использования функции:
|
1 2 3 4 5 6 7 |
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; |