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  ;