Функція IncMillisecond в Delphi збільшує змінну типу TDateTime на + або - число мілісекунд.
DateUtils unit
- function IncMillisecond (const StartDateTime : TDateTime {; NumberOfMilliSeconds : Integer = 1}) : TDateTime;
- function IncMilliSecond (const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;
Функція IncMillisecond повертає значення TDateTime, яке на NumberOfMilliSeconds мілісекунд більше, ніж передане значення StartDateTime.
Рік, місяць, день і значення години збільшуються відповідно.
Значення збільшення є довільним (за замовчуванням 1).
Примітка.
Функції DecMillisecond немає.
Замість цього використовуйте IncMillisecond з негативним збільшенням.
Функція IncMillisecond: Простий приклад збільшення та декременту
var
myDate : TDateTime;
begin
// Встановлюємо нашу дату на початок 2006 року
myDate := EncodeDateTime(2006, 1, 1, 0, 0, 0, 0);
ShowMessage('моя дата = '+DateTimeToStr(myDate));
// Додати 5000 мілісекунд до цієї дати
myDate := IncMillisecond(myDate, 5000);
ShowMessage('моя дата + 5000 мілісекунд= '+DateTimeToStr(myDate));
// Відняти 2000 мілісекунд від цієї дати
myDate := IncMillisecond(myDate, -2000);
ShowMessage('моя дата - 2000 мілісекунд= '+DateTimeToStr(myDate));
end;Результат
моя дата = 01/01/2006
моя дата= 01/01/2006 00:00:05
моя дата = 01/01/2006 00:00:03
Подібні функції, процедури та команди
IncYear — збільшує змінну TDateTime на певну кількість років.
IncMonth — збільшує змінну TDateTime на певну кількість місяців.
IncDay — прирощує змінну типу TDateTime на + чи - число днів.
IncMinute — прирощує змінну типу TDateTime на + або - число хвилин.
IncSecond — прирощує змінну типу TDateTime на + чи - число секунд.
Пригостити автора кавою