判断是否是正确日期字符串的函数

个人写的一个判断是否是正确日期字符串的函数,请大家点评/*

函数参数str:需要转换为日期的字符串,fmt:日期格式,nls:日期字符串的语言

返回值:类型为date,如果字符串不符合转换格式的要求或是非法的日期字符串,返回值为null,反之,返回转换后的date值

*/

CREATEORREPLACEFUNCTIONisdate(strvarchar2,fmtvarchar2defaultnull,nlsvarchar2defaultnull)

RETURNdate

IS

v_datedate;

v_fmtvarchar2(100)defaultfmt;

v_nlsvarchar2(100)defaultnls;

BEGIN

IFfmtISNULLTHEN

SELECTvalue

INTOv_fmt

FROMv$nls_parameters

WHEREparameter='NLS_DATE_FORMAT';

ENDIF;

IFnlsISNULLTHEN

SELECT'NLS_DATE_LANGUAGE='''||value||''''

INTOv_nls

FROMv$nls_parameters

WHEREparameter='NLS_DATE_LANGUAGE';

ENDIF;

v_date:=to_date(str,v_fmt,v_nls);

RETURNv_date;

EXCEPTION

WHENOTHERSTHEN

/*如果你希望看到报错,就把下面的注释行打开*/

--raise;

RETURNNULL;

END;

/

-------------------

以下是函数isdate的使用示例SQL>COLUMNPARAMETERFORMATA30

SQL>COLUMNVALUEFORMATA30

SQL>setnull[null]

SQL>select*fromv$nls_parameterswhereparameterin('NLS_DATE_FORMAT','NLS_DATE_LANGUAGE');

PARAMETERVALUE

------------------------------------------------------------

NLS_DATE_FORMATDD-MON-RR

NLS_DATE_LANGUAGESIMPLIFIEDCHINESE

SQL>selectisdate('1-1月-06')asdayfromdual;

DAY

----------

01-1月-06

SQL>selectisdate('01-jan-06')asdayfromdual;

DAY

----------

[null]

SQL>altersessionsetnls_date_language=american;

会话已更改。

SQL>selectisdate('01-jan-06')asdayfromdual;

DAY

---------

01-JAN-06

SQL>selectisdate('2006-01-01','yyyy-mm-dd')asdayfromdual;

DAY

---------

01-JAN-06

SQL>selectisdate('1-1月-06','dd-mon-yy','nls_date_language=simplifiedchinese')asdayfromdual;

DAY

---------

[null]

SQL>selectisdate('1-1月-06','dd-mon-yy','nls_date_language=''simplifiedchinese''')asdayfromdual;

DAY

---------

01-JAN-06

SQL>