Скачать: CL | DM;

Дата в 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]

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

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

---

← →
kaif ©   (2004-02-14 05:08) [4]

Видимо, автор вопроса хочет присвоить в таблице 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 лет?
:))))))))))))

---

← →
Expo ©   (2004-02-17 10:11) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c