Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Вниз

Дата в 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.011 c
14-43880
Добрыня
2004-02-19 18:09
2004.03.14
лицензирование


14-43786
BALU1111
2004-02-18 17:17
2004.03.14
Борьба со спамом и новый способ выкачивания денег?


1-43511
linkz
2004-02-28 21:52
2004.03.14
Получить строку и обработать в таймере


14-43865
dimonf
2004-02-24 18:36
2004.03.14
Народ, помогите бедному программисту найти жилье!!!


14-43761
Soi
2004-02-19 11:23
2004.03.14
Глючит OUTLOOK





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский