MyChat Scripts: функція DaysBetween, скільки днів між датами
Дізнатися скільки повних днів між двома датами.
Синтаксис
function DaysBetween(dNow, dThen: double): integer;
Параметри та значення, що повертаються
|
Параметр |
Тип |
Значення |
|
dNow |
double |
перше значення дати та часу; |
|
dtThen |
double |
друге значення дати та часу;. |
Результат функції
Число днів. Функція завжди повертає позитивний результат, тобто параметри можуть бути взаємозамінними, не важливо перший параметр менша дата або більша.
Приклад
var
dtFrom, dtNow: double;
begin
// first day of 2000 year
dtFrom := EncodeDateTime(2000, 1, 1, 1, 0, 0, 0);
// and now
dtNow := Now;
// print this dates
mLogScript('From date: ' + FormatDateTime('dd.mm.yyyy hh:nn:ss', dtFrom), '');
mLogScript('To date: ' + FormatDateTime('dd.mm.yyyy hh:nn:ss', dtNow), '');
mLogScript('Whole days: ' + IntToStr(DaysBetween(dtFrom, dtNow)), '');
end.
Результат роботи скрипту
[20:10:26] (Log "DaysBetween"): From date: 01.01.2000 01:00:00
[20:10:26] (Log "DaysBetween"): To date: 03.07.2016 20:10:26
[20:10:26] (Log "DaysBetween"): Whole days: 6028