如何判斷一個字符串是否為數(shù)字或日期?

2024-07-21 02:32:38

字體：大中小

供稿：網(wǎng)友

昨天有一個朋友在MSN上問，如何判定一個字符串是否為數(shù)字?
我說，寫一個函數(shù)吧。于是給出了一個例子:

SQL> CREATE OR REPLACE FUNCTION is_number (parmin VARCHAR2)
2 RETURN NUMBER
3 IS
4 val NUMBER;
5 BEGIN
6 val := TO_NUMBER (NVL (parmin, 'a'));
7 RETURN 1;
8 EXCEPTION
9 WHEN OTHERS
10 THEN
11 RETURN 0;
12 END;
13 / Function created.SQL> select is_number('a') from dual;IS_NUMBER('A')
--------------
0SQL> select is_number('0.998') from dual;IS_NUMBER('0.998')
------------------
1SQL> select is_number('9999999999999999') from dual;IS_NUMBER('9999999999999999')
-----------------------------
1

今天，這個朋友在MSN上又問：如何判定一個字符是否是日期?
我說，再寫一個函數(shù)吧。補(bǔ)注:由于session的語言設(shè)置會影響日期的輸出格式，所以時間被轉(zhuǎn)換為字符可能有多種形式。
以下這個函數(shù)只能滿足部分情況，僅供參考。

SQL> CREATE OR REPLACE FUNCTION is_date (parmin VARCHAR2)
2 RETURN NUMBER
3 IS
4 val DATE;
5 BEGIN
6 val := TO_DATE (NVL (parmin, 'a'), 'yyyy-mm-dd hh24:mi:ss');
7 RETURN 1;
8 EXCEPTION
9 WHEN OTHERS
10 THEN
11 RETURN 0;
12 END;
13 /
Function created.
SQL> select is_date('a') from dual;IS_DATE('A')
------------
0SQL> select is_date('2004-05-05') from dual;IS_DATE('2004-05-05')
---------------------
1SQL> select is_date('2004/01/01') from dual;IS_DATE('2004/01/01')
---------------------
1SQL> select is_date('01/01/04') from dual;IS_DATE('01/01/04')
-------------------
1SQL> select is_date('01-jan-04') from dual;IS_DATE('01-JAN-04')
--------------------
1