function YearsBetween(const ANow, AThen: TDateTime): Integer;

← →
SnowMen (2004-05-16 23:25) [0]

Добрый вечер, Уважаемые мастера.
Помогите, пожалуйста, примером:
Мне нужно узнать разницу м/у сегодняшней датой и введенной ранее
(в годах). Я знаю, что есть функция
function YearsBetween(const ANow, AThen: TDateTime): Integer;
.... но я не нашел примера ее использования,
А мне нужно в поле Таблицы занести разницу (кол-во лет)
Заранее спасибо!

← →
Плохиш (2004-05-16 23:30) [1]

ojskolxkogodkowminowalo:=YearsBetween(segodnja,kogdato);

← →
SnowMen (2004-05-17 00:00) [2]

Ага пишу
DataModule1.SotrTableStagPrYear.Value:=YearsBetween(Now,DataModule1.SotrTableDateCom.Value): Integer;
и ни фига не идет, пишет
Undeclared identifier: "YearsBetween"

Плохиш

Подробнее опиши, пожалуйста, как занести значение в
DataModule1.SotrTableStagPrYear

← →
SnowMen (2004-05-17 00:01) [3]

← →
Mike Kouzmine © (2004-05-17 00:20) [4]

А ты переведи текст ошибки и все станет ясно.

← →
SnowMen (2004-05-17 00:53) [5]

>А ты переведи текст ошибки и все станет ясно.
Да тут и так понятно, что "необъявленный", Вопрос в том как и где
правильно его объявить?

← →
sniknik © (2004-05-17 00:55) [6]

ставь курсор на YearsBetween и нажимай Ctrl + F1, смотри в каком модуле описано и подключай его к себе в программу.

← →
Плохиш (2004-05-17 01:25) [7]

> DataModule1.SotrTableStagPrYear.Value:=YearsBetween(Now,DataModule1.SotrTableDateCom.Value): Integer;

а ещё хотелось бы узнать, что у Вас означает выделенное?

← →
SnowMen (2004-05-17 02:19) [8]

>а ещё хотелось бы узнать, что у Вас означает выделенное?
не обращай внимания, только вот загвоздка
Функция заработала, но мне не совсем то нужно, что получается, а получ-ся след-ее:
Разница м/у 07.05.2000 и 16.05.2004 пишет 4 года, 48 месяцев, 1470 дней - согласен,НО НЕ ТО, а надо 4 года, 4 месяца, 9 дней. Как такое заполучить?

Ты же прямым текстом говоришь "Хочу получить разницу лет" - вот ее и получаешь. В чем проблема то? Посмотри возвращающий тип.

function YearsBetween(const ANow, AThen: TDateTime): Integer; Найти похожие ветки