Topic: пример работы с датами
в данном примере показано как получить:
дату
дату и время
день недели
номер дня
номер месяца
високосный год
имя месяца
часы
My Visual Database → FAQ → пример работы с датами
в данном примере показано как получить:
дату
дату и время
день недели
номер дня
номер месяца
високосный год
имя месяца
часы
Пример нужный, но я бы рекомендовал делать всё через функции, чтобы проще было использовать в других проектах, например, функция, которая возвращает имя месяца:
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());
My Visual Database → FAQ → пример работы с датами
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi