Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

AppendRecord... 


voice   (2002-01-13 12:07) [0]

Доброго времени суток! Друзья подскажите ответ на вопрос... В табличку из двух полей добавляем новую запись в одно поле пишется текущая дата а в другое должна записатся дата из справочника дат причем наиболее близкое значение к текущей дате (записанной) либо такоеже если она есть в справочнике...Зарание благодарен!



roottim   (2002-01-13 13:36) [1]

руками!
на оракле SP примерно так выглядел бы

create or replace function
GET_DATE(paramDate)
RETURN DATE
IS
Result DATE;
D1 DATE
D2 DATE
begin
select max(t1.fdate)
into d1
from tName1 t1
where t1.fdate<=paramDate;

select min(t1.fdate)
into d2
from tName1 t1
where t1.fdate>=paramDate;

if (paramDate=d1) or (paramDate=d2) then
Result:=paramDate;
else
if (abs(paramDate-d1)<abs(paramDate-d2)) then
Result:=d1;
else
Result:=d2;
end if;
end if;

return Result;
end;

как на ИБ незнаю... но можеш примерно т.с. в делфе проделать



roottim   (2002-01-13 13:53) [2]

:)...если оптимизировать.. то после селектов...

if (abs(paramDate-d1)<=abs(paramDate-d2)) then
Result:=d1;
else
Result:=d2;
end if;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.02 c
1-18852           nikols                2002-01-22 11:06  2002.02.07  
Кто нибудь знает, как из PDF файла извлечь сразу весь текст и графику?


1-18860           Анонимщик             2002-01-21 12:01  2002.02.07  
Один дюйм - это точно 2,54 сантиметра или нет?


1-18795           waterfoll             2002-01-24 02:36  2002.02.07  
RichEdit


6-18924           Arseny                2001-11-12 20:59  2002.02.07  
Client-Server


6-18940           Pal-nod               2001-11-18 03:45  2002.02.07  
1) Установка/удаление IPX 2) Разблокировать панель управления