Сообщение об ошибке

Deprecated function: The each() function is deprecated. This message will be suppressed on further calls в функции menu_set_active_trail() (строка 2405 в файле /home/kpaco123/e-helper/includes/menu.inc).

DaysBetween ()

function DaysBetween (const ToDate, FromDate:TDateTime): Integer;
Опис
Функція DaysBetween обраховує різницю FromDate з ToDate, повертаючи її в цілих днях.
Приклад
var
fromdate, toDate: TDateTime;
begin

fromDate: = EncodeDateTime (2000, 02, 26, 10,0, 0, 0);
toDate: = EncodeDateTime (2000, 02, 29, 9, 0, 0, 0);

ShowMessage ('З дати =' + DateTimeToStr(fromDate));
ShowMessage ('До дати =' + DateTimeToStr(toDate));
ShowMessage ('Цілих днів =' +
IntToStr (DaysBetween (toDate,fromDate)) + 'днів');
end;