|
现在可以飚到329了
--Congratulation ... Code Length: 329 Bytes. Times: 00:00:08
create or replace function my_add_months(p_date_string varchar2,
p_months number)
return varchar2
AS
C INT := p_date_string;
H INT := 100;
Y INT := C/H/H;
M INT := C/H - Y * H;
D INT := MOD(C, H);
Z INT := Y * 12 + M + p_months;
PROCEDURE P
AS
BEGIN
C := 27 + SUBSTR(43434434342 - SIGN(MOD(Y, 16 - 4 * INSTR(Y/H,'.'))), 1 - M, 1);
END;
BEGIN
P;
Y := (Z - 7) / 12;
M := Z - Y * 12;
Z := D/C/2;
P;
RETURN Y*H*H + M*H + LEAST(D + Z * 3, C);
END;
/ |
|