以文本方式查看主题

-  中华农历论坛  (http://bbs.nongli.net/index.asp)
--  历法知识  (http://bbs.nongli.net/list.asp?boardid=2)
----  [原创]由儒略日推算历日(汉语编程练习)  (http://bbs.nongli.net/dispbbs.asp?boardid=2&id=16419)
--  作者：秦汉昌
--  发布时间：2008/12/25 19:44:00
--  [原创]由儒略日推算历日(汉语编程练习)
 

\\  /////////////////////////运用本词语，必须先装载“日期转串”和“儒略日”两个词语，连接地址如下：

【日期转串：连接地址】

[原创]日期转串[苏子琼汉语编程论坛]
http://bbs.suziqiong.cn/bbs/dispbbs.asp?boardid=49&Id=66

 【儒略日：连接地址】
 

[原创]计算儒略日数[苏子琼汉语编程论坛]
http://bbs.suziqiong.cn/bbs/dispbbs.asp?boardid=49&Id=120 

【自定我词】


1 6 建数组 历日推算数组

编 由儒略日推算历日
  0.5 + ♂  ♂ 下取整 - ↑↓ 下取整 2299161.0
  双♂ < 就  ∽ 1 1 写入数组 历日推算数组
        否则
    ∽ 1867216.25 - 36524.25 / 下取整
   ∴   ∽ 1.0 + +  ↑↓  4.0 / 下取整 - 1 1 写入数组 历日推算数组
  然后
   ↑↓  1 6 写入数组 历日推算数组  ♀
  1 1 历日推算数组 1524.0 + 1 2 写入数组 历日推算数组
  1 2 历日推算数组 122.1 - 365.25 / 下取整  1 3 写入数组 历日推算数组
  1 3 历日推算数组 365.25 * 下取整 1 4 写入数组 历日推算数组
  1 2 历日推算数组 1 4  历日推算数组 -  ♂  30.6001 / 下取整 1 5 写入数组 历日推算数组
  1 5 历日推算数组 30.6001 * 下取整 -
  1 6 历日推算数组 +
  1 5 历日推算数组 14.0 < 就
  1 5 历日推算数组 1.0 -    否则
  1 5 历日推算数组 13.0 -   然后
   ♂ 实>数 2 > 就
  1 3 历日推算数组 4716.0 - 否则
  1 3 历日推算数组 4715.0 -  然后
  2 √ 实>数 2 √ 实>数 2 √ 实>数
  日期值 日期转串 。

 

【功能介绍】


将一个儒略日值放在数摞上。然后，在“由儒略日推算历日”这个词的帮助下转换成一个 儒略日数相对应的西历日期。

【使用详解】


 格式： <儒略日值(实数)>   由儒略日推算历日

 参数：儒略日数 ( 为实数 )

 返回：一个儒略日相对应的西历日期 

【应用举例】

2454824.50 由儒略日推算历日 印字串 2008.12.24★
2454825.50 由儒略日推算历日 印字串 2008.12.25★
2454820.50 由儒略日推算历日 印字串 2008.12.20★ 

【注意事项】

参数儒略日数必须为实数，关于儒略日数与西历日期是否对应，可以根据本词返回的日期，用“儒略日”这个词来求与其对应的儒略日数，如果这个数与原先利用的儒略日数整数部分相等，就意味着本程序计算准确(当然，验证本程序的正确性还可以选一个日期，求其儒略日，再反过来推算历日，如果与原来的日期相符，可以应用)，有关上例验证结果如下：

2008 12 24.0 儒略日 看数摞 [1] 2454824.50 ★.
2008 12 25.0 儒略日 看数摞 [2] 2454824.50 2454825.50 ★..
2008 12 20.0 儒略日 看数摞 [3] 2454824.50 2454825.50 2454820.50 ★...

【版权声明】


版权所有，可以共享

\\ ////////////////////////////////////////////////2008.12.25.秦汉昌.上海.