中华农历论坛知识讨论区历法知识 → [原创]日期处理模板(待完善中)


  共有12623人关注过本帖树形打印

主题:[原创]日期处理模板(待完善中)

帅哥哟,离线,有人找我吗?
秦汉昌
  1楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:业余侠客 帖子:372 积分:1447 威望:0 精华:0 注册:2008/12/20 18:10:00
[原创]日期处理模板(待完善中)  发帖心情 Post By:2009/1/6 0:30:00

\ //////日期处理模板,本模板先以西历为基础编写,有些词与系统词实现的功能相同,以便验证,如果要用于西历以外的日期处理,略作改动即可。

编 是闰年 ( 年份 --- 真或假标志 )
 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编辑过]

支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部
帅哥哟,离线,有人找我吗?
秦汉昌
  2楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:业余侠客 帖子:372 积分:1447 威望:0 精华:0 注册:2008/12/20 18:10:00
  发帖心情 Post By:2009/1/6 0:33:00

初步试验结果如下:

2008 1 1 日期值 看数摞 [1] 733042 ★.
733042 计年月日 看数摞 [4] 733042 2008 1 1 ★....

  关于新词的名称,可能有不规范之处,欢迎大家来完善,尽量保证功能与名称一致。


支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部

返回版面帖子列表

[原创]日期处理模板(待完善中)








签名