• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

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

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

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

Post's attachments

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

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,532

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());
Визуальное программирование: блог и телеграм-канал.

k245's Website