CREATE OR REPLACE FUNCTION DODATEFORMAT(P_DATE IN VARCHAR2) RETURN VARCHAR2 IS
W_OUT VARCHAR2(100);
BEGIN
W_OUT := W_OUT ||
TO_CHAR(TO_DATE(P_DATE, 'yyyy/mm/dd'),
'eeyy',
'nls_calendar = ''Japanese Imperial''') || '年' ||
TO_CHAR(TO_DATE(P_DATE, 'yyyy/mm/dd'), 'mm') || '月' ||
TO_CHAR(TO_DATE(P_DATE, 'yyyy/mm/dd'), 'dd') || '日';
RETURN W_OUT;
END DODATEFORMAT;
W_OUT VARCHAR2(100);
BEGIN
W_OUT := W_OUT ||
TO_CHAR(TO_DATE(P_DATE, 'yyyy/mm/dd'),
'eeyy',
'nls_calendar = ''Japanese Imperial''') || '年' ||
TO_CHAR(TO_DATE(P_DATE, 'yyyy/mm/dd'), 'mm') || '月' ||
TO_CHAR(TO_DATE(P_DATE, 'yyyy/mm/dd'), 'dd') || '日';
RETURN W_OUT;
END DODATEFORMAT;