Функція IncDay в Delphi збільшує змінну типу TDateTime на + або - число днів.
DateUtils unit
- function IncDay (const StartDateTime : TDateTime {; NumberOfDays : Integer = 1}) : TDateTime;
- function IncDay (const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
Функція IncDay повертає значення TDateTime, яке на NumberOfDays днів більше, ніж передане значення StartDateTime.
Рік та значення місяця збільшуються відповідно.
Значення збільшення є довільним (за замовчуванням 1).
Примітка.
Функції DecDay немає.
Замість неї використовуйте IncDay з негативним збільшенням.
Функція IncDay: Простий приклад збільшення та декременту
var
myDate : TDateTime;
begin
// Встановлюємо нашу дату якраз перед кінцем 2000 року
myDate := EncodeDate(2000, 12, 30);
ShowMessage('моя дата = '+DateToStr(myDate));
// Додати 10 днів до цієї дати
myDate := IncDay(myDate, 10);
ShowMessage('моя дата + 10 днів = '+DateToStr(myDate));
// Від цієї дати віднімаємо 12 днів
myDate := IncDay(myDate, -12);
ShowMessage('моя дата - 12 днів = '+DateToStr(myDate));
end;Результат
моя дата = 30/12/2000
моя дата + 10 днів = 09/01/2001
моя дата - 12 днів = 29/12/2000
Подібні функції, процедури та команди
IncMinute — збільшує змінну типу TDateTime на + або - число хвилин.
IncMonth — збільшує змінну TDateTime на певне число місяців.
IncYear — збільшує змінну TDateTime на певну кількість років.
IncSecond — збільшує змінну типу TDateTime на + або - число секунд.
IncMillisecond — збільшує змінну типу TDateTime на + або - число мілісекунд.
Пригостити автора кавою