以上程序,有不完善之处,现作更新:
\ ////////////////本模板可以为夏历日期型数据提供干支之间、干支与数字之间的转换
\ ///////////////本词来源:汉编学习群(群号:11331858)万邦来朝九龙原创
编 字串拼接 ( -- 地址 长度 地址 长度 )
{ \ 临时长串 --- }
200 个字节空给 临时长串
3 √ 3 √ 临时长串 字串传送
1 √ 1 √ 临时长串 字串+传送
临时长串 计字节
。
编 读内码
0 § 0
循环
1 § 内环数 + 1 §
读第一个字符
1 √ ♀
1 √ ♀
∵
回环
双♀
。
编 数转天干
如和 1 对应就 字串" 甲"
而和 2 对应就 字串" 乙"
而和 3 对应就 字串" 丙"
而和 4 对应就 字串" 丁"
而和 5 对应就 字串" 戊"
而和 6 对应就 字串" 己"
而和 7 对应就 字串" 庚"
而和 8 对应就 字串" 辛"
而和 9 对应就 字串" 壬"
而和 0 对应就 字串" 癸"
而后 。
编 数转地支
如和 1 对应就 字串" 子"
而和 2 对应就 字串" 丑"
而和 3 对应就 字串" 寅"
而和 4 对应就 字串" 卯"
而和 5 对应就 字串" 辰"
而和 6 对应就 字串" 巳"
而和 7 对应就 字串" 午"
而和 8 对应就 字串" 未"
而和 9 对应就 字串" 申"
而和 10 对应就 字串" 酉"
而和 11 对应就 字串" 戌"
而和 0 对应就 字串" 亥"
而后 。
编 六十甲子
回车
回车
回车
61 1
循环
内环数 10 求余数 数转天干
内环数 12 求余数 数转地支
字串拼接 印字串 回车
回环 。
\ ////////////2008.12.23.万邦来朝.北京.
\ ///////////////本词来源:汉编学习群(群号:11331858)秦汉昌原创
编 天干转数
字串" 甲乙丙丁戊己庚辛壬癸"
3 √ 3 √ 串搜寻 -1 = 就
如和 20 对应就 1
而和 18 对应就 2
而和 16 对应就 3
而和 14 对应就 4
而和 12 对应就 5
而和 10 对应就 6
而和 8 对应就 7
而和 6 对应就 8
而和 4 对应就 9
而和 2 对应就 0
而后
1 √ ♀
否则 双♀ 字串" 天干不正确" 印字串
然后 。
编 地支转数
字串" 子丑寅卯辰巳午未申酉戌亥"
3 √ 3 √ 串搜寻 -1 = 就
如和 24 对应就 1
而和 22 对应就 2
而和 20 对应就 3
而和 18 对应就 4
而和 16 对应就 5
而和 14 对应就 6
而和 12 对应就 7
而和 10 对应就 8
而和 8 对应就 9
而和 6 对应就 10
而和 4 对应就 11
而和 2 对应就 0
而后
1 √ ♀
否则 双♀ 字串" 地支不正确" 印字串
然后 。
编 是实数就转整数
♂ 属性值 0= 非 就 实>数 然后 。
编 数转干支 ( 天干数 地支数 --- 干支地址 长度 )
1 √ ♂ 属性值 0= 非 就 实>数
1 √ ♂ 属性值 0= 非 就 实>数
∽ 2 求余数
∽ 2 求余数 =
2 § 0 § 10 < 1 √ -1 > 与
2 § 0 § 12 < 1 √ -1 > 与 与 与 就
1 √ 数转天干 2 √ 数转地支 字串拼接
否则 字串" 参数非法" 印字串
然后
然后 然后 。
编 干支转数
∽ 2 天干转数
2 √ 2 + 2 地支转数
∴ ♀
∽ 2 求余数
∽ 2 求余数 = 就
1 √ 1 √ 否则
双♀ 字串" 您输入的干支不正确" 印字串
然后 。
\ ////////////////////////2008.12.24.秦汉昌.上海.