Главная страница
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.02 c
3-43355
den777
2004-02-16 10:06
2004.03.14
Последняя запись в dbExpress


6-43735
Agent13
2004-01-04 20:20
2004.03.14
Чат без сервера


1-43497
Lena19
2004-02-28 23:46
2004.03.14
for n:=1 to 10 do goto n


4-43942
TURKDL
2004-01-07 19:43
2004.03.14
Mailslot


1-43513
Chapha
2004-02-28 21:54
2004.03.14
СHM