?

--自動生成當前年份所有月的會計期間

--Parameters:

--:YEAR? 當前年份

--:TYPE? 會計日歷類型

??? SELECT INITCAP (TO_CHAR (TO_DATE (ROWNUM, 'MM'), 'MON')) PREFIX,

?????????? :TYPE TYPE,

?????????? :YEAR YEAR,

?????????? TO_CHAR (TO_DATE (ROWNUM, 'MM'), 'q') QUARTER,

?????????? ROWNUM NUM,

?????????? ( :YEAR || '-' || ROWNUM || '-01') FROM_DAY,

?????????? TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || '-' || ROWNUM, 'YYYY-MM')), 'YYYY-MM-DD') TO_DAY,

?????????? INITCAP (TO_CHAR (TO_DATE (ROWNUM || '-' || :YEAR, 'MM-YYYY'), 'MON-YYYY')) NAME

????? FROM DUAL

CONNECT BY ROWNUM <= 12

UNION ALL

SELECT 'Adj' PREFIX,

?????? :TYPE TYPE,

?????? :YEAR YEAR,

?????? '4' QUARTER,

?????? 13 NUM,

?????? TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || '-' || '12', 'YYYY-MM')), 'YYYY-MM-DD') FROM_DAY,

?????? TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || '-' || '12', 'YYYY-MM')), 'YYYY-MM-DD') TO_DAY,

?????? 'Adj-' || :YEAR NAME

? FROM DUAL;

?

?

--Dataload template

??? SELECT INITCAP (TO_CHAR (TO_DATE (ROWNUM, 'MM'), 'MON')) PREFIX,

?????????? 'TAB' KEY,

?????????? :TYPE TYPE,

?????????? 'TAB' KEY,

?????????? :YEAR YEAR,

?????????? 'TAB' KEY,

?????????? TO_CHAR (TO_DATE (ROWNUM, 'MM'), 'q') QUARTER,

?????????? 'TAB' KEY,

?????????? ROWNUM NUM,

?????????? 'TAB' KEY,

?????????? ( :YEAR || '-' || ROWNUM || '-01') FROM_DAY,

?????????? 'TAB' KEY,

?????????? TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || '-' || ROWNUM, 'YYYY-MM')), 'YYYY-MM-DD') TO_DAY,

?????????? 'TAB' KEY,

?????????? INITCAP (TO_CHAR (TO_DATE (ROWNUM || '-' || :YEAR, 'MM-YYYY'), 'MON-YYYY')) NAME,

?????????? 'TAB' KEY,

?????????? '\^{DOWN}' KEY

????? FROM DUAL

CONNECT BY ROWNUM <= 12

UNION ALL

SELECT 'Adj' PREFIX,

?????? 'TAB' KEY,

?????? :TYPE TYPE,

?????? 'TAB' KEY,

?????? :YEAR YEAR,

?????? 'TAB' KEY,

?????? '4' QUARTER,

?????? 'TAB' KEY,

?????? 13 NUM,

?????? 'TAB' KEY,

?????? TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || '-' || '12', 'YYYY-MM')), 'YYYY-MM-DD') FROM_DAY,

?????? 'TAB' KEY,

?????? TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || '-' || '12', 'YYYY-MM')), 'YYYY-MM-DD') TO_DAY,

?????? 'TAB' KEY,

?????? 'Adj-' || :YEAR NAME,

?????? 'TAB' KEY,

?????? '*SB' KEY

? FROM DUAL;

轉載于:https://www.cnblogs.com/quanweiru/p/4619491.html

總結

以上是生活随笔為你收集整理的会计日历-自动生成脚本的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。