最新修改：
\ ////////////////本模板可以为夏历日期型数据提供干支之间、干支与数字之间的转换
\ ///////////////本词来源：汉编学习群(群号：11331858)万邦来朝九龙原创之字串剪辑模板
编 剪串腹 ( -- 地址 长度 欲剪起址 欲剪长度 )
3 § 2 √ + 1 √
。
编 字串拼接 ( -- 地址 长度 地址 长度 )
{ \ 临时长串 --- }
200 个字节空给 临时长串
3 √ 3 √ 临时长串 字串传送
1 √ 1 √ 临时长串 字串+传送
临时长串 计字节
。
\ ///////////////本词来源：汉编学习群(群号：11331858)秦汉昌、万邦来朝九龙原创
编 是实数就转整数 ( 实数或整数 --- 整数 )
♂ 属性值 0= 非 就 实>数 然后 。
编 数转天干 ( 天干数 --- 地址 长度 ) \ 将天干数转换成天干串
字串" 癸甲乙丙丁戊己庚辛壬"
∴ 是实数就转整数
♂ 0 10 >=且<
就 2 * 2 剪串腹 双↑↓ 双♀
否则 双♀ ♀ 字串" 天干数有误" 印字串
然后 。
编 数转地支 ( 地支数 --- 地址 长度 ) \ 将地支数转换成地支串
字串" 亥子丑寅卯辰巳午未申酉戌"
∴ 是实数就转整数
♂ 0 12 >=且<
就 2 * 2 剪串腹 双↑↓ 双♀
否则 双♀ ♀ 字串" 地支数有误" 印字串
然后 。
编 天干转数 ( 地址 长度 --- 天干数 ) \ 将天干串转换成天干数
摞层 2 < 就 1 否则 然后
字串" 甲乙丙丁戊己庚辛壬癸"
3 √ 3 √ 串搜寻 -1 = 就
20 ↑↓ - 2 / 1 + 1 √ ♀
否则 双♀ 字串" 天干不正确" 印字串
然后 。
编 地支转数 ( 地址 长度 --- 地支数 ) \ 将地支串转换成地支数
摞层 2 < 就 1 否则 然后
字串" 子丑寅卯辰巳午未申酉戌亥"
3 √ 3 √ 串搜寻 -1 = 就
24 ↑↓ - 2 / 1 + 1 √ ♀
否则 双♀ 字串" 地支不正确" 印字串
然后 。
编 数转干支 ( 天干数 地支数 --- 地址 长度 ) \ 将干支数转换成干支串
↑↓ 是实数就转整数
↑↓ 是实数就转整数
∽ 2 求余数
∽ 2 求余数 =
2 § 0 10 >=且<
2 § 0 12 >=且< 与 与 就
↑↓ 数转天干 ∴ 数转地支 字串拼接
否则 双♀ 字串" 参数非法" 印字串
然后 。
编 干支转数 ( 地址 长度 --- 天干数 地支数 ) \ 将干支串转换成干支数
摞层 2 < 就 1 否则 然后
∽ 2 天干转数
∴ 2 + 2 地支转数
∴ ♀
∽ 2 求余数
∽ 2 求余数 = 就
1 √ 1 √ 否则
双♀ 字串" 干支不正确" 印字串
然后 。
编 显示六十甲子 ( --- 六十甲子 ) \ 将六十甲子按顺序分六行显示出来
回车 回车
61 1 循环
内环数 10 求余数 内环数 12 求余数 数转干支 印字串 2 个空格
内环数 10 求余数 0= 就 回车 然后
回环 。
\ ////////////////////////2008.12.26.秦汉昌.万邦来朝九龙.
加好友 
发短信
Post By：2008/12/26 18:59:00
