FUNCTION IS_INTEGER(
IN_VARCHAR IN VARCHAR2)
RETURN INTEGER AS FLAG INTEGER;
I INTEGER;
BEGIN
FOR I IN 1..LENGTH(IN_VARCHAR)
LOOP
IF ASCII(SUBSTR(IN_VARCHAR,I,1))>=48 AND ASCII(SUBSTR(IN_VARCHAR,I,1))<=57
THEN
FLAG:=0;
ELSE
FLAG:=-1;
EXIT;
END IF;
END LOOP;
RETURN FLAG;
END IS_INTEGER;
| 广告合作:400-664-0084 全国热线:400-664-0084 Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号 珠峰网 版权所有 All Rights Reserved
|