编 求历史闰年数 ( 当前年份 --- 历史闰年数 )  \  当前年份以前的闰年数(不含当前年份)

{ \ 闰年数 -- }
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★上海★