Тема: Дата
Показать сообщение отдельно
  #3  
Старый 12.12.2008, 11:05
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,106
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
еще проще - есть функция decodeDate:

Код:
var
  Day, Month, Year : WORD;
begin
  DecodeDate(Date,Year,Month,Day);
end;
Ответить с цитированием