第一种：

create or replace function isnumber(p_in varchar2) return boolean as   i number; begin   i := to_number(p_in);   return true; exception   when others then     return false;     if i = 1 then       null;     end if; end isnumber;

第二种：

create or replace function isnumber(p_in varchar2) return number as  i number;begin  i := to_number(p_in);  return 1;exception  when others then    return 0; end;

第二种是第一种的简化版，第一种加上

if i = 1 then       null;     end if;

是为了不在11g编译的时候出现警告，当然在10g的时候是不会出现的。

思路：

利用number类型的变量i，将传入的参数一个一个赋值给它，如果不是数字的varchar2类型进行to_number类型转换时那么必然会报异常，根据异常片段的语法可让其返回0