| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Дата в RxQuery [D7, Paradox]

Expo ©   (2004-02-13 15:24:00) 

Есть функция (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;

---

Expo   (2004-02-17 10:11:00) [1]

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

---

kaif   (2004-02-14 05:08:00) [2]

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

---

Johnmen   (2004-02-13 22:38:00) [3]

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

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

---

Expo   (2004-02-13 17:10:00) [4]

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

---

GSVSerg   (2004-02-13 15:35:00) [5]

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

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

---

Наверх