database rt_data;

drop procedure get_lost_u(char, date);

create function get_lost_u(u_num_cnt char(20), u_dat_uchet date)
returning float;
DEFINE u_volumeN float;
DEFINE u_volumeB float;
define u_tempn, u_tempb, u_daten, u_dateb integer;
let u_volumeN=0;
let u_volumeB=0;
let u_dateN=0;
let u_dateB=0;

--- выборка последней записи
foreach
select first 1 dat_uchet, val_cnt into u_dateN, u_volumeN
from counters
where is_actual=1 and num_cnt=u_num_cnt and dat_uchet>=u_dat_uchet
order by dat_uchet desc
EXIT FOREACH;
END FOREACH;

--- выборка предпоследней записи
foreach
select first 1 dat_uchet, val_cnt into u_dateB, u_volumeB
from counters
where is_actual=1 and num_cnt=u_num_cnt and dat_uchet<u_dat_uchet
order by dat_uchet desc
EXIT FOREACH;
END FOREACH;

--- подсчет расхода за месяц
IF (u_volumeN-u_volumeB)<=0
THEN
let u_volumeN=0;
ELSE
--- если разница больше года
if (year(u_daten)-year(u_dateb))>0
then
let u_volumeN=(u_volumeN-u_volumeB)/((year(u_daten)-year(u_dateb))*12+month(u_daten)-month(u_dateb));
else
--- если в диапазоне одного года
let u_volumeN=(u_volumeN-u_volumeB)/(month(u_daten)-month(u_dateb));
end if;
end if;

return u_volumeN;
end function;

---grant execute on get_lost_u to "public" as "are";
--- select 1, get_lost_u("29","01.05.2004") from systables where tabid=1;

Есть таблица, содержащая показания водомеров, необходимо просчитать расход воды по одной квартире за определенный месяц...

Первый блин.... согласен.... предложите свои варианты...

ваяю под 9.21 ТС1
Запускается и работает... но долго.
как можно оптимизировать?

выдает не обязательно одну строку.
Бывает, что в квартире по 4 счетчика....

Enlighten me Переформулируйте селекты. Хотя ожидать резкого ускорения я бы от этого не стал, читаемость не ухудшидся. Дальше профайлинг и тюнинг.

как?