pl/sql function示例

create   or   replace   function  RomanToDec(
roman  in   varchar2
)  return   number
IS
l_dec  number ;
begin
    l_dec : =   0 ;
     if  roman  =   ' Ⅰ '   then  l_dec : =   1 ;
      elsif roman  =   ' Ⅱ '   then  l_dec : =   2 ;
      elsif roman  =   ' Ⅲ '   then  l_dec : =   3 ;
      elsif roman  =   ' Ⅴ '   then  l_dec : =   4 ;  
      elsif roman  =   ' Ⅲ2 '   then  l_dec : =   3.2 ;
      elsif roman  =   ' Ⅲ1 '   then  l_dec : =   3.1 ;
      elsif roman  =   ' I '   then  l_dec : =   1 ;
      elsif roman  =   ' Ⅳ2 '   then  l_dec : =   4.2 ;  
      elsif roman  =   ' Ⅳ1 '   then  l_dec : =   4.1 ;  
     end   if ;
     return  l_dec;
end  RomanToDec  ;