看到开发区的nyfor版主出了一道题，用PL/SQL实现Oracle的ADD_MONTHS的功能，觉得比较有意思，忍不住尝试了一下。

原文如下：http://www.itpub.net/thread-977079-1-1.html

不使用日期函数实现ADD_MONTHS函数功能：http://yangtingkun.itpub.net/post/468/460788

在原有的基础上做了一点小改动。

由于这个东西比较耗费精力，因此自从上次的函数实现之后就没有再花功夫去研究。

不过从其他人那里学到了一个函数的用法，可以在不改变现有算法的情况下，再次减少源代码的长度：

SQL> CREATE OR REPLACE FUNCTION MY_ADD_MONTHS(P_DATE_STRING VARCHAR2, P_MONTHS NUMBER)
  2  RETURN VARCHAR2 AS
  3  SUBTYPE I IS INT;
  4  N I:=P_DATE_STRING;
  5  C I:=100;
  6  D I:=N MOD C;
  7  Y I:=N/C/C;
  8  M I:=N/C MOD C;
  9  Z I:=M+P_MONTHS;
 10  FUNCTION F(Y I,M I) RETURN I
 11  AS
 12  BEGIN
 13  RETURN 31-CASE WHEN M IN(4,6,9,11) THEN 1
 14  WHEN M!=2 THEN 0
 15  WHEN Y MOD 400 = 0 OR Y MOD 4 = 0 AND Y MOD C > 0 THEN 2
 16  ELSE 3
 17  END;
 18  END;
 19  BEGIN
 20  N:=(Z MOD 12 + 11) MOD 12 + 1;
 21  Z:=Y+(Z-N)/12;
 22  IF D=F(Y,M) OR D>F(Z,N) THEN
 23  D:=F(Z,N);
 24  END IF;
 25  RETURN Z*C*C+N*C+D;
 26  END;
 27  /

函数已创建。

SQL> SET SERVEROUT ON
SQL> declare
  2    ln  number;
  3    ld  date;
  4    ls1 varchar2(8);
  5    ls2 varchar2(8);
  6    lt  number := dbms_utility.get_time;
  7    ex exception;
  8    y number;
  9    m number;
 10    d number;
 11    j number;
 12  begin
 13    for j in 0 .. 5000 loop
 14      for y in 2000 .. 2001 loop
 15        for m in 2 .. 4 loop
 16          for d in 28 .. 31 loop
 17            begin
 18              ls1 := y || '0' || m || d;
 19              begin
 20                ld  := to_date(ls1, 'yyyymmdd');
 21              exception
 22                when others then
 23                  exit;
 24              end;
 25              ld  := add_months(ld, j);
 26              ls2 := to_char(ld, 'yyyymmdd');
 27              if nvl(my_add_months(ls1, j), '*') <> ls2 then
 28                dbms_output.put_line('Sorry: stop at p_date_string=' || ls1 ||
 29                                     ',p_months=' || j);
 30                dbms_output.put_line('my_add_months returned: ' ||
 31                                     my_add_months(ls1, j));
 32                dbms_output.put_line('add_months returned: ' || ls2);
 33                raise ex;
 34              end if;
 35           
 36              ls1 := to_char(add_months(ld, -j), 'yyyymmdd');
 37              if nvl(my_add_months(ls2, -j), '*') <> ls1 then
 38                dbms_output.put_line('Sorry: stop at p_date_string=' || ls2 ||
 39                                     ',p_months=' || -j);
 40                dbms_output.put_line('my_add_months returned: ' ||
 41                                     my_add_months(ls2, -j));
 42                dbms_output.put_line('add_months returned: ' || ls1);
 43                raise ex;
 44              end if;
 45            exception
 46              when ex then
 47                raise;
 48              when others then
 49                raise;
 50            end;
 51          end loop;
 52        end loop;
 53      end loop;
 54    end loop;
 55    ln := 0;
 56    for c in (select text
 57                from user_source
 58               where name = 'MY_ADD_MONTHS'
 59                 and type = 'FUNCTION') loop
 60      ln := ln + nvl(lengthb(translate(c.text,
 61                                       '*' || chr(9) || chr(10) || chr(13) ||
 62                                       chr(32),
 63                                       '*')),
 64                     0);
 65    end loop;
 66    lt := (dbms_utility.get_time - lt) / 100;
 67    dbms_output.put_line('Congratulation ... Code Length: ' || ln ||
 68                         ' Bytes. Times: ' ||
 69                         to_char(to_date(to_char(lt, 'fm00000'), 'sssss'),
 70                                 'hh24:mi:ss'));
 71  exception
 72    when ex then
 73      null;
 74  end;
 75  /
Congratulation ... Code Length: 393 Bytes. Times: 00:00:03

PL/SQL 过程已成功完成。

在10g的PLSQL中，MOD(A,B)可以写为A MOD B，利用这种方法将源代码的最终代码缩短到了400之内。

不过如果再想缩短就必须修改算法了。