Topic: пример работы с датами

в данном примере показано как получить:

дату 
дату и время
день недели
номер дня
номер месяца
високосный год
имя месяца
часы

Post's attachments

Attachment icon DATE.7z 3.89 kb, 130 downloads since 2020-01-10 

Re: пример работы с датами

Пример нужный, но я бы рекомендовал делать всё через функции, чтобы проще было использовать в других проектах, например, функция, которая возвращает имя месяца:

function MonthName(ADate:TDate):string;
begin
  case MonthOf(ADate) of
  1: result := 'январь';
  2: result := 'февраль';
  3: result := 'март';
  4: result := 'апрель';
  5: result := 'май';
  6: result := 'июнь';
  7: result := 'июль';
  8: result := 'август';
  9: result := 'сентябрь';
  10: result := 'октябрь';
  11: result := 'ноябрь';
  12: result := 'декабрь';
  end;
end;

Пример вызова функции:

Form1.Label8.Caption := MonthName(Date());
Создание приложений https://sites.google.com/view/my-visual-database
Курсы программирования https://vk.com/createmyvisualdatabaseapp