![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как из DateTime вытащить число месяца? [D6, Win2k]
Mishenka © (2005-01-11 16:14:00)Как из DateTime вытащить число месяца?
begin...end (2005-01-11 18:21:00) [1]Желание изобретать велосипед с квадратными колёсами труднопреодолимо.
PZ (2005-01-11 18:09:00) [2]Посмотри пример:
procedure TForm1.Button3Click(Sender: TObject);
Var
Dat : tDateTime;
God, Mec, Den : Word;
begin
Dat := Date;
DecodeDate(Dat, God, Mec, Den);
Label1.Caption := IntToStr(Den);
Label2.Caption := IntToStr(Mec);
Label3.Caption := IntToStr(God);
end;
Ega23 (2005-01-11 16:20:00) [3]DecodeDate + F1
begin...end (2005-01-11 16:17:00) [4]> Mishenka (11.01.05 16:14)
Модуль DateUtils, функция DayOf.