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

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

AppendRecord... [D5, IB5.x, ]

voice ©   (2002-01-13 12:07:00) 

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

---

roottim   (2002-01-13 13:53:00) [1]

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

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

---

roottim   (2002-01-13 13:36:00) [2]

руками!
на оракле 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;

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

---

Наверх