Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: 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 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
4-43962
Saimon
2004-01-04 06:55
2004.03.14
???... Регистрация


4-43966
CC
2004-01-05 12:36
2004.03.14
иконки из exe - файла


3-43344
Rumba
2004-02-16 16:36
2004.03.14
FIBPlus 5.08 master-detail


3-43375
Санек
2004-02-13 18:16
2004.03.14
Теория коннекта


7-43906
denis24
2003-12-23 17:39
2004.03.14
net use lpt1: /delete