WeekOf
Модуль: DateUtils
function WeekOf(const AValue: TDateTime): Word;
Функция возвращает номер недели на основе даты, сохраненной в качестве параметра AValue (тип TDateTime ). Функция возвращает число от 1 до 53:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
program Foo; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; begin Writeln('Дата: ', DateTimeToStr(Now)); Writeln('-----'); Writeln('Нед: ', WeekOf(Now)); Readln; end. |