freepascal.ru

Немогу подсчитать количество дней при помощи функции DaysBetween из DateUtils.

.....
var
sdey : integer;
begin
sdey:= DaysBetween(DateEdit2.Date, DateEdit1.Date);
.....
выдает ошибку
Fatal: illegal character """ ($B6)

что это еще такое. Разве я не могу так количество дней найти?

Ошибка сообщает, что одно из полей не содержит дату

Вобщето кол-во дней - это разность между двумя датами
т.е.

Код: Выделить всё

sdey:= Trunc(DateEdit2.Date - DateEdit1.Date);

причём trunc нужен чтобы перевести из вещественного в целое.

alexs

А когда дата стала вещественным числом? Вроде всю жизнь была целым.

TDateTime вроде только есть с датами связанное... А оно - Real, если не Extended

компонент TDateEdit возвращает дату (целая часть) и нулевое время (вещественная часть), соответственно время можно не учитывать и на выходе всегда будет только целое число

Так поэтому и trunc, видимо... Хотя я через Floor делаю - в чём разница? ^_^

Padre_Mortius писал(а):А когда дата стала вещественным числом? Вроде всю жизнь была целым.

TDateTime - всю жизнь - вещественное -double
trunc - приведение вещественного к целому.