Oracle 函数 Function

定义

     函数用于计算和返回一个结果值，把经常需要进行的计算写成函数,函数的调用是表达式的一部分。
     函数与过程在创建的形式上有些相似，也是编译后放在内存中供用户使用。
     函数必须有一个返回值，而过程没有做强制的规定。
     RETURN在声明部分需要定义一个返回参数的类型，而在函数体中必须有一个RETURN语句。如果函数结束时还没有遇到返回语句，就会发生错误。

创建

create or replace function Fn_First
return varchar2    --不需要长度
is
Result varchar2(100);    --declare，长度定义。
begin
NULL;
return(Result);
end Fn_First;

调用方法一

declare
var_str varchar(100);
begin
var_str := fn_first(); 
dbms_output.put_line(var_str);　　

 调用方法二

select  fn_first() from dual;

项目应用

   带输入参数

CREATE OR REPLACE FUNCTION SF_PUB_STRMINUSINT
(p_beg in varchar2,
 p_end in varchar2
)
return int
/**
AUTH   
FUNC  两个随机号相减得数
**/
AS
     v_ret  int;
     vs_geb  varchar2(30);
     vs_str  varchar2(30);
     vn_beg  int;
     vs_dne  varchar2(30);
     vn_end  int;
begin
    --反转
    select reverse(p_beg) into vs_geb from dual;
    --正则
    select regexp_substr(vs_geb,'[0-9]+',1,1) into vs_str from dual;
    --取得随机码
    select to_number(reverse(vs_str)) into vn_beg from dual;
    --止号
    select reverse(p_end) into vs_dne from dual;
    --正则
    select regexp_substr(vs_dne,'[0-9]+',1,1) into vs_str from dual;
    --取得随机码
    select to_number(reverse(vs_str)) into vn_end from dual;
    v_ret:=vn_end-vn_beg+1;
    return v_ret;
end SF_PUB_STRMINUSINT;　　

  以对象返回数据列表

create or replace function fn_test
( pid in number
)
return
  tabTEST
is
 Result tabTEST =tabTEST();
 USERID number(12);
 VNAME varchar(200);
 orgid  number(12);
 type tab is table of number;
 tab_test1 tab;
 /***
 create or replace type ctest as object
 (
  cUser  number(12),  --不可注释
  cName  varchar(200),
  cOrg   number(12)
 )
 create or replace type tabTEST is table of ctest
 测试
 select  from table(cast(fn_test({0})as tabTEST))
 ***/
begin
 select ID bulk collect into tab_test1 from tuser where id=pid;
 Result =tabTEST();
 for i in 1..tab_test1.count loop
  select ID,name,belongorg into USERID,VNAME,orgid from tuser where ID=tab_test1(i);
 
  Result.extend;
  Result(Result.count)=ctest(NULL,NULL,NULL);
  Result(Result.count).cUser=USERID;
  Result(Result.count).cName=VNAME;
  Result(Result.count).cOrg =orgid;
  end loop;
  return(Result);
  end fn_test;