在Postgres自定义函数中实现财务折旧金额的计算

-- Function: db(float8, float8, float8, float8, float8) 
-- DROP FUNCTION db(float8, float8, float8, float8, float8); CREATE OR REPLACE FUNCTION db(float8, float8, float8, float8, float8) RETURNS float8 AS 
$BODY$ 
/** 
* * 使用固定余额递减法，计算一笔资产在给定期间内的折旧值。 
* * 语法 
* * DB(cost,salvage,life,period,month) 
* * Cost 为资产原值。 
* * Salvage 为资产在折旧期末的价值（也称为资产残值）。 
* * Life 为折旧期限（有时也可称作资产的生命周期）。 
* * Period 为需要计算折旧值的期间。Period 必须使用与 life 相同的单位。 
* * Month 为第一年的月份数，如省略，则假设为 12。 
* * 说明 
* * 固定余额递减法用于计算固定利率下的资产折旧值，函数 DB 使用下列计算公式来计算一个期间的折旧值： 
* * (cost - 前期折旧总值 ) * rate 
* * 式中： 
* * rate = 1 - ((salvage / cost) ^ (1 / life))，保留 3 位小数 
* * 第一个周期和最后一个周期的折旧属于特例。对于第一个周期，函数 DB 的计算公式为： 
* * cost * rate * month / 12 
* * 对于最后一个周期，函数 DB 的计算公式为： 
* * ((cost - 前期折旧总值) * rate * (12 - month)) / 12 
* * 示例 
* * 假定某工厂购买了一台新机器。价值为 $1,000,000，使用期限为 6 年。残值为  $100,000。下面的例子给出机器在使用期限内的历年折旧值，结果保留整数。 
* DB(1000000,100000,6,1,7) 等于 $186,083 
* DB(1000000,100000,6,2,7) 等于 $259,639 
* DB(1000000,100000,6,3,7) 等于 $176,814 
* DB(1000000,100000,6,4,7) 等于 $120,411 
* DB(1000000,100000,6,5,7) 等于 $82,000 
* DB(1000000,100000,6,6,7) 等于 $55,842 
* DB(1000000,100000,6,7,7) 等于 $15,845 
* */ 
DECLARE cost ALIAS FOR $1; 
salvage ALIAS FOR $2; 
life ALIAS FOR $3; 
period ALIAS FOR $4; 
monts ALIAS FOR $5; 
rec RECORD;
rate numeric; 
result float8; 
count int4; 
total float8; 
BEGIN 
IF period > life + 1 THEN 
RAISE EXCEPTION 'period value : % is wrong!!!' , period; 
END IF; 
count :=1; 
rate := 1 - ((salvage / cost) ^ (1 / life)); 
rate := round(rate,3); 
--first period 
result := cost * rate * monts / 12; 
count := count +1; total :=result; 
--middle period 
IF period >1 AND period < life + 1 THEN 
WHILE count <=period LOOP 
result := (cost - total ) * rate; 
total :=total + result; 
count := count + 1; END LOOP; 
END IF; 
--last period 
IF period = life + 1 THEN 
WHILE count <=period-1 LOOP 
result := (cost - total ) * rate; 
total :=total + result; count := count + 1; 
END LOOP; 
result :=((cost - total) * rate * (12 - monts)) / 12; 
END IF; 
RETURN round(result::numeric,0); 
END; 
$BODY$ 
LANGUAGE 'plpgsql' VOLATILE; 
ALTER FUNCTION db(float8, float8, float8, float8, float8) OWNER TO postgres;