Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

function YearsBetween(const ANow, AThen: TDateTime): Integer; [D6, Access]

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

Mike Kouzmine (2004-05-17 07:08:00) [1]
Ты же прямым текстом говоришь "Хочу получить разницу лет" - вот ее и получаешь. В чем проблема то? Посмотри возвращающий тип.

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

Плохиш (2004-05-17 01:25:00) [3]

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

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

sniknik (2004-05-17 00:55:00) [4]
ставь курсор на YearsBetween и нажимай Ctrl + F1, смотри в каком модуле описано и подключай его к себе в программу.

SnowMen (2004-05-17 00:53:00) [5]
>А ты переведи текст ошибки и все станет ясно.
Да тут и так понятно, что "необъявленный", Вопрос в том как и где
правильноего объявить?

Mike Kouzmine (2004-05-17 00:20:00) [6]
А ты переведи текст ошибки и все станет ясно.

SnowMen (2004-05-17 00:01:00) [7]
Ага пишу
DataModule1.SotrTableStagPrYear.Value:=YearsBetween(Now,DataModule1.SotrTableDateCom.Value): Integer;
и ни фига не идет, пишет
Undeclared identifier: "YearsBetween"

Плохиш

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

SnowMen (2004-05-17 00:00:00) [8]
Ага пишу
DataModule1.SotrTableStagPrYear.Value:=YearsBetween(Now,DataModule1.SotrTableDateCom.Value): Integer;
и ни фига не идет, пишет
Undeclared identifier: "YearsBetween"

Плохиш

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

Плохиш (2004-05-16 23:30:00) [9]
ojskolxkogodkowminowalo:=YearsBetween(segodnja,kogdato);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »