IncWeek
Модуль: DateUtils
function IncWeek(const AValue: TDateTime; const ANumberOfWeeks: Integer = 1): TDateTime;
Функция увеличивает количество недель в значении даты (передается в параметре AValue ). Параметр ANumberOfWeeks означает количество недель, на которые будет увеличено значение даты:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program Foo; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; var dtNow : TDateTime; begin dtNow := Now; Writeln('Dzisiaj jest: ' + DateTimeToStr(dtNow)); Writeln('Za tydzień o tej porze będzie: ' + DateTimeToStr(IncWeek(dtNow))); Readln; end. |