\ //////日期处理模板,本模板先以西历为基础编写,有些词与系统词实现的功能相同,以便验证,如果要用于西历以外的日期处理,略作改动即可。
编 是闰年 ( 年份 --- 真或假标志 )
400 求余数 ♂ ♂ 0> ↑↓ 100 求余数 0= 与 0=
↑↓ 4 求余数 0= 与 。
编 求历史闰年数 ( 当前年份 --- 历史闰年数 ) \ 当前年份以前的闰年数(不含当前年份)
{ \ 闰年数 -- }
255 个字节空给 闰年数
0 写入 闰年数
1
循环 内环数
是闰年 就 1 +写入 闰年数 然后
回环 闰年数 。
编 平年月累计天数 ( 月序号 --- 年初至月底天数 )
如和 0 对应就 0
而和 1 对应就 31
而和 2 对应就 59
而和 3 对应就 90
而和 4 对应就 120
而和 5 对应就 151
而和 6 对应就 181
而和 7 对应就 212
而和 8 对应就 243
而和 9 对应就 273
而和 10 对应就 304
而和 11 对应就 334
而和 12 对应就 365
而后 。
编 闰年月累计天数 ( 月序号 --- 年初至月底天数 )
♂ 0 < 就 字串" 月份不正确" 印字串 否则
♂ 2 < 就 平年月累计天数 否则 平年月累计天数 1 +
然后 然后 。
编 年转日 ( 当前年份 --- 元年至当前年底的日数 )
♂ 1 + 求历史闰年数 ↑↓ 365 * + 。
编 日期值 ( 年 月 日 --- 日期值 ) \ 将年月日三个数字以日记数
∴ ♂ 1 - 年转日
3 √ 1 - ∴ 是闰年 就 闰年月累计天数 否则
平年月累计天数 然后 + + 。
编 年份值 ( 日期值 --- 年份值 ) \ 将一个日期值数字所包含的完整年份计算出来
365 / ♂ 求历史闰年数 365 / - 。
编 平年计月日 ( 年初至某月某日的累计天数 --- 某月某日 )
♂ 1 32 >=且< 就 32 求余数 1 ↑↓ 否则
♂ 32 60 >=且< 就 31 求余数 2 ↑↓ 否则
♂ 60 91 >=且< 就 59 求余数 3 ↑↓ 否则
♂ 91 121 >=且< 就 90 求余数 4 ↑↓ 否则
♂ 121 152 >=且< 就 120 求余数 5 ↑↓ 否则
♂ 152 182 >=且< 就 151 求余数 6 ↑↓ 否则
♂ 182 213 >=且< 就 181 求余数 7 ↑↓ 否则
♂ 213 244 >=且< 就 212 求余数 8 ↑↓ 否则
♂ 244 274 >=且< 就 243 求余数 9 ↑↓ 否则
♂ 274 305 >=且< 就 273 求余数 10 ↑↓ 否则
♂ 305 335 >=且< 就 304 求余数 11 ↑↓ 否则
♂ 335 366 >=且< 就 334 求余数 12 ↑↓ 否则
字串" 月日值不正确" 印字串
然后 然后 然后 然后 然后 然后 然后 然后 然后 然后 然后 然后 。
编 闰年计月日 ( 年初至某月某日的累计天数 --- 某月某日 )
♂ 1 32 >=且< 就 32 求余数 1 ↑↓ 否则
♂ 32 61 >=且< 就 31 求余数 2 ↑↓ 否则
♂ 61 92 >=且< 就 60 求余数 3 ↑↓ 否则
♂ 92 122 >=且< 就 91 求余数 4 ↑↓ 否则
♂ 122 153 >=且< 就 121 求余数 5 ↑↓ 否则
♂ 153 183 >=且< 就 152 求余数 6 ↑↓ 否则
♂ 183 214 >=且< 就 182 求余数 7 ↑↓ 否则
♂ 214 245 >=且< 就 213 求余数 8 ↑↓ 否则
♂ 245 275 >=且< 就 244 求余数 9 ↑↓ 否则
♂ 275 306 >=且< 就 274 求余数 10 ↑↓ 否则
♂ 306 336 >=且< 就 305 求余数 11 ↑↓ 否则
♂ 336 367 >=且< 就 335 求余数 12 ↑↓ 否则
字串" 月日值不正确" 印字串
然后 然后 然后 然后 然后 然后 然后 然后 然后 然后 然后 然后 。
编 计年月日 ( 日期值 --- 年 月 日 ) \ 将一个日期值数以年月日表示
♂ 年份值 1 + ↑↓ ∽ 1 - 年转日 - ∽
是闰年 就 闰年计月日 否则 平年计月日 然后 。
\ /////////////★秦汉昌★2009.元.5★上海★
[原创]日期处理模板[苏子琼汉语编程论坛]
http://bbs.suziqiong.cn/bbs/dispbbs.asp?boardid=50&id=151&page=1&star=1
[此贴子已经被作者于2009-1-6 10:19:14编辑过]