Делаю так :
function YB(var Date1,Date2:Tdatetime): Integer; cdecl; export;
begin
Result := YearsBetween(Date1,Date2)
end;
А при вызове получаю 0
Укажите на ошибку пожалуйста
Вычисление разницы годов
Модератор: kdv
Вычисление разницы годов
Нужно вычислить количество полных годов между двумя датами .
Делаю так :
function YB(var Date1,Date2:Tdatetime): Integer; cdecl; export;
begin
Result := YearsBetween(Date1,Date2)
end;
А при вызове получаю 0
Укажите на ошибку пожалуйста
Делаю так :
function YB(var Date1,Date2:Tdatetime): Integer; cdecl; export;
begin
Result := YearsBetween(Date1,Date2)
end;
А при вызове получаю 0
Укажите на ошибку пожалуйста
Re: Вычисление разницы годов
Читай о том, как даты передаются в UDF
-
Dimitry Sibiryakov
- Заслуженный разработчик
- Сообщения: 1436
- Зарегистрирован: 15 сен 2005, 09:05
Re: Вычисление разницы годов
А что, простое CAST((Date2-Date1)/365.400 AS INTEGER) уже считается некошерным?pH писал(а):Нужно вычислить количество полных годов между двумя датами.