中华农历论坛知识讨论区历法知识 → [秦汉昌、万邦来朝九龙原创]干支转换模板更新


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

主题:[秦汉昌、万邦来朝九龙原创]干支转换模板更新

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


加好友 发短信
等级:业余侠客 帖子:372 积分:1447 威望:0 精华:0 注册:2008/12/20 18:10:00
[秦汉昌、万邦来朝九龙原创]干支转换模板更新  发帖心情 Post By:2008/12/26 18:59:00

\  ////////////////本模板可以为夏历日期型数据提供干支之间、干支与数字之间的转换

\  ///////////////本词来源:汉编学习群(群号:11331858)万邦来朝九龙原创之字串剪辑模板

编 剪串腹 ( -- 地址 长度 欲剪起址 欲剪长度 )
3 §   2 √  +   1 √ 

编 字串拼接 ( -- 地址 长度   地址 长度  )
{   \  临时长串 ---   }
      200 个字节空给 临时长串
 3 √   3 √  临时长串  字串传送
 1 √   1 √  临时长串  字串+传送
临时长串  计字节
 。


\  ///////////////本词来源:汉编学习群(群号:11331858)秦汉昌、万邦来朝九龙原创

编 是实数就转整数 ( 实数或整数 --- 整数 )
 ♂ 属性值 0= 非 就 实>数 然后 。


编 数转天干 ( 天干数 --- 地址 长度 )   \ 将天干数转换成天干串
字串" 癸甲乙丙丁戊己庚辛壬"
 ∴ 是实数就转整数
♂ ♂ 10 <   1 √   -1 >  与
就  2 *  2 剪串腹    双↑↓ 双♀
否则 字串" 天干数有误"
然后 。

编 数转地支 ( 地支数 --- 地址 长度 )   \ 将地支数转换成地支串
字串" 亥子丑寅卯辰巳午未申酉戌"
 ∴ 是实数就转整数
 ♂ ♂ 12 <   1 √   -1 >  与
就  2 * 2 剪串腹  双↑↓ 双♀
否则 字串" 地支数有误"
然后 。


编 天干转数 ( 地址 长度 --- 天干数 )   \ 将天干串转换成天干数
字串" 甲乙丙丁戊己庚辛壬癸"
3 √ 3 √ 串搜寻 -1 = 就
20 ↑↓ - 2 / 1 +  1 √ ♀
否则 双♀ 字串" 天干不正确" 印字串
然后 。

编 地支转数 ( 地址 长度 --- 地支数 )   \ 将地支串转换成地支数
字串" 子丑寅卯辰巳午未申酉戌亥"
3 √ 3 √ 串搜寻 -1 = 就
24 ↑↓ - 2 / 1 +  1 √ ♀
 否则 双♀ 字串" 地支不正确" 印字串
然后 。


编 数转干支 ( 天干数 地支数 --- 地址 长度 )   \ 将干支数转换成干支串 
  ↑↓  是实数就转整数 
  ↑↓  是实数就转整数 
 ∽ 2 求余数
 ∽ 2 求余数 =
2 § 0 10 >=且<
2 § 0 12 >=且<  与 与 就
与 与 就
 ↑↓ 数转天干 ∴ 数转地支 字串拼接
 否则 字串" 参数非法" 印字串
 然后  。

编 干支转数 ( 地址 长度 --- 天干数 地支数 )   \ 将干支串转换成干支数

 ∽ 2 天干转数
  ∴  2 + 2 地支转数
  ∴  ♀
 ∽ 2 求余数
 ∽ 2 求余数 = 就
 1 √ 1 √    否则
双♀ 字串" 干支不正确" 印字串
然后 。

编 显示六十甲子     ( ---  六十甲子  )   \  将六十甲子按顺序分六行显示出来
回车 回车
61 1 循环
内环数 10 求余数 内环数 12 求余数 数转干支 印字串 2 个空格
内环数 10 求余数 0= 就 回车 然后
 回环 。

\ ////////////////////////2008.12.26.秦汉昌.万邦来朝九龙.


[秦汉昌、万邦来朝九龙原创]干支转换模板更新[苏子琼汉语编程论坛]
http://bbs.suziqiong.cn/bbs/dispbbs.asp?boardid=50&Id=130

[此贴子已经被作者于2008-12-27 11:07:53编辑过]

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


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

  其实,不管是汉语编程,还是英语编程,没有绝对的孰优孰劣,而在于运用我们的智慧去精益求精。

   就像这个干支转换模板,通过不断地完善,程序也就大大地简化了,执行效力也就提高了。

   汉编程序对分行没有要求,在汉语编程中,之所以分多行写,是为了汉语程序看起来清晰明了,便于检查、调试和排版。


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


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

测试结果如下:

    Win API常量: 9,462
装载 D:\DOWNLOADS\汉语编程\新词汇集\模板\干支转换模板.CHP ★
1 数转天干 印字串 甲★
2 数转天干 印字串 乙★
3 数转天干 印字串 丙★
1 数转地支 印字串 子★
2 数转地支 印字串 丑★
3 数转地支 印字串 寅★
15 数转地支 印字串 地支数有误★...
16 数转天干 印字串 天干数有误★......
1 1 数转干支 印字串 甲子★......
1 2 数转干支 印字串 参数非法★......

1 3 数转干支 印字串 甲寅★......

字串" 甲" 天干转数 显 1 ★....
字串" 乙" 天干转数 显 2 ★....
字串" 甲" 地支转数 显 地支不正确637765 ★...
字串" 子" 地支转数 显 1 ★...
字串" 丑" 地支转数 显 2 ★...

摞初始 ★
字串" 甲子" 干支转数 看数摞 [2] 1 1 ★..
字串" 甲子" 干支转数 看数摞 [4] 1 1 1 1 ★....
字串" 乙丑" 干支转数 看数摞 [6] 1 1 1 1 2 2 ★......


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


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

最新修改:

\  ////////////////本模板可以为夏历日期型数据提供干支之间、干支与数字之间的转换

\  ///////////////本词来源:汉编学习群(群号: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.秦汉昌.万邦来朝九龙.


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

返回版面帖子列表

[秦汉昌、万邦来朝九龙原创]干支转换模板更新








签名