DecodeDate
Модуль: SysUtils
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
Процедура разделяет компоненты даты, хранящиеся в параметре Date, на год ( год ), месяц ( месяц ) и день ( день ).
1 2 3 4 5 6 7 8 9 |
procedure TMyForm.MyButtonClick(Sender: TObject); var wYear, wMonth, wDay : Word; begin DecodeDate(Now, wYear, wMonth, wDay); Label1.Caption := 'Mamy ' + IntToStr(wMonth) + ' miesiąc roku ' + IntToStr(wYear) + ', dnia ' + IntToStr(wDay); end; |