ORACLE自定义函数

  CREATE OR REPLACE FUNCTION function_name         /*函数名称*/
(
Parameter_name1,mode1 datatype1,　　　　　　　　　　　 /*参数定义部分*/
Parameter_name2,mode2 datatype2,
Parameter_name3,mode3 datatype3
…
)
RETURN return_datatype　　　　　　　　　　　　　　　　/*定义返回值类型*/
IS/AS
BEGIN
       Function_body　　　　　　　　　　　　　　　　　 /*函数体部分*/
      RETURN scalar_expression                        /*返回语句*/
END function_name;

CREATE OR REPLACE FUNCTION F_FORMATSXDATA(VI_VALUE   IN VARCHAR2,  
                                          VI_FORMSTR IN VARCHAR2)  
  RETURN VARCHAR2 IS  
  RESULT       VARCHAR2(200);  
  V_NUMBERTEMP NUMBER(11, 2);  
BEGIN  
  IF VI_FORMSTR = '001' OR VI_FORMSTR = '003' OR VI_FORMSTR = '005' THEN  
    RESULT := VI_VALUE;  
  ELSIF VI_FORMSTR = '002' THEN  
    RESULT := TO_CHAR(VI_VALUE, 'FM999999999990.00');  
  ELSIF VI_FORMSTR = '004' THEN  
    V_NUMBERTEMP := TO_NUMBER(VI_VALUE, 'FM999999999990.0099') * 100;  
    RESULT       := TO_CHAR(V_NUMBERTEMP, 'FM999999999990.00');  
  END IF;  
  RETURN(RESULT);  
END F_FORMATSXDATA; 

create or replace function Bas_count
return number
is
count_bas number;
begin
select count(*) into count_bas from Bas_Company;
return(count_bas);
end Bas_count;

declare
i number;
begin
i:=Bas_count();
dbms_output.enable;
dbms_output.put_line(to_char(i));
end;

create or replace function fun_hello
return varchar2
is
begin
  return '朋友，你好';
end;

调用：
select fun_hello from dual; 

   create or replace function get_sal(empname in varchar2) return number is

　　Result number;

　　begin

　　select sal into Result from emp where ename=empname;

　　return(Result);

　　end get_sal;

　　执行: SQL> var sal number

　　SQL> exec :sal:=get_sal('scott');

create or replace function get_info(e_name varchar2,job out varchar2) return number is

　　Result number;

　　begin

　　select sal,job into Result,job from emp where ename=e_name;

　　return(Result);

　　end get_info;

　　执行: SQL> var job varchar2(20)

　　SQL> var dname varchar2(20)

　　SQL> exec :dname:=get_info('SCOTT',:job)

create or replace function result(num1 number,num2 in out number) return number is

　　v_result number(6);

　　v_remainder number;

　　begin

　　v_result :=num1/num2;

　　v_remainder :=mod(num1,num2);

　　num2 :=v_remainder;

　　return(v_result);

　　Exception

　　when zero_divide then

　　raise_application_error(-20000,'不能除0');

　　end result;

　　执行: var result1 number;

　　var result2 number;

　　exec :result2:=30

　　exec :result1:=result(100,:result2)

　　1、SQL语句中只能调用存储函数(服务器端),而不能调用客户端的函数

　　2、SQL只能调用带有输入参数,不能带有输出,输入输出函数

　　3、SQL不能使用PL/SQL的特有数据类型(boolean,table,record等)

　　4、SQL语句中调用的函数不能包含INSERT,UPDATE和DELETE语句