EndOfAWeek
Модуль: DateUtils
function EndOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word = 7): TDateTime;
Функция возвращает значение TDateTime, которое представляет последнюю миллисекунду в данной неделе. Другими словами, функция возвращает последний момент недели, указанный в параметре AWeekOfYear . Кроме того, вы должны указать параметр AYear , который указывает год.
пример:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program FooApp; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; var A : TDateTime; begin A := EndOfAWeek(2006, 50); Writeln(DateTimeToStr(A)); Readln; end. |