MyChat Scripts: функция DaysBetween, сколько дней между датами

Узнать, сколько полных дней между двумя датами.

 

Синтаксис

function DaysBetween(dNow, dThen: double): integer;

 

Параметры и возвращаемые значения

 

Результат функции

Число дней. Функция всегда возвращает положительный результат, то есть параметры могут быть взаимозаменяемыми, не важно, первый параметр меньшая дата или большая.

 

Пример

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

 

Ещё посмотреть

EncodeDate
IntToStr
mLogScript

Now