Дата в RxQuery

← →
Expo © (2004-02-13 15:24) [0]

Есть функция (ESBDates) хотел вставить в таблицу, но не знаю как?

function AgeAtDate (const DOB, DT: TDateTime): Integer;
var D1, M1, Y1, D2, M2, Y2: Word;
begin
if DT < DOB then
Result := -1
else
begin
DecodeDate (DOB, Y1, M1, D1);
DecodeDate (DT, Y2, M2, D2);
Result := Y2 - Y1;
if (M2 < M1) or ((M2 = M1) and (D2 < D1)) then
Dec (Result);
end;
End;

← →
GSVSerg © (2004-02-13 15:35) [1]

> хотел вставить в таблицу

Что вставить?

← →
Expo © (2004-02-13 17:10) [2]

Понял,не правильно задал вопрос. Есть начальная ДАТА (1 колонка) и конечная (2колонка), а в третьей результат.

← →
Johnmen © (2004-02-13 22:38) [3]

>Понял,не правильно задал вопрос.

Вторая попытка тоже неудачна...:)))

Видимо, автор вопроса хочет присвоить в таблице Paradox третьей колонке значения этой функции, используя первые две колонки в качестве аргументов.
Тогда нужно сделать что-то в этом роде:
Поставить компонент таблицы на форму. Настроить его на нужную таблицу (указать драйвер Paradox директорию и имя таблицы) и в обработчик OnClick кнопки вписать что-то вроде:

with Table1 do begin Active := True; DisableControls; try First; while not Eof do begin Edit; Fields[2].AsInteger = AgeAtDate(Fields[0].AsIDateTime, Fields[1].AsIDateTime); Post; Next; end; finally EnableControls; end; end;

Я так понял, что согласно этой функции в 1812г. мне было минус 1 лет?
:))))))))))))

Спасибо попробую

Дата в RxQuery Найти похожие ветки