以文本方式查看主题

-  中华农历论坛  (http://bbs.nongli.net/index.asp)
--  历法知识  (http://bbs.nongli.net/list.asp?boardid=2)
----  [秦汉昌、万邦来朝九龙原创]干支转换模板更新  (http://bbs.nongli.net/dispbbs.asp?boardid=2&id=16438)
--  作者：秦汉昌
--  发布时间：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编辑过]
--  作者：秦汉昌
--  发布时间：2008/12/27 11:19:00
--  

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

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

   汉编程序对分行没有要求，在汉语编程中，之所以分多行写，是为了汉语程序看起来清晰明了，便于检查、调试和排版。
--  作者：秦汉昌
--  发布时间：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 ★......
--  作者：秦汉昌
--  发布时间：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.秦汉昌.万邦来朝九龙.