|
|
|
| 导航： |
论坛 -> 发布代码
斑竹:liumazi,ruralboy |
|
| 作者： |
|
2024/4/7 14:51:08 |
| 标题： |
|
加入我的收藏 |
| 楼主： |
根据网上的24节气代码改的万年历，估计精度不够，3000年后与老寿星万年历的24节气时间有出入。相差几个小时。d7编译通过。
----------------------------------------------
- |
| 作者： |
|
2024/4/7 15:34:47 |
| 1楼： |
3000年后的事谁还去管它...
现在用的是网上的UCDOS 6.0版的PAS,只支持到2050年.
楼主能做成个独立的引用单元吗?
----------------------------------------------
-
|
| 作者： |
 xjia (xjia) |
★☆☆☆☆ |
-
|
| 盒子活跃会员 |
|
2024/4/7 15:48:27 |
| 2楼： |
感谢分享
----------------------------------------------
-
|
| 作者： |
|
2024/4/7 17:02:50 |
| 3楼： |
运行界面：
此帖子包含附件:
大小:16.2K |
----------------------------------------------
-
|
| 作者： |
|
2024/4/7 17:10:57 |
| 4楼： |
代码片段：
此帖子包含附件:
大小:62.9K |
----------------------------------------------
-
|
| 作者： |
|
2024/4/7 22:31:11 |
| 6楼： |
这个界面简单好看 ，所以就借鉴了
----------------------------------------------
-
|
| 作者： |
|
2024/4/7 23:03:40 |
| 7楼： |
300年与寿星的相差几十秒。计算精度问题，界面用别人的，自己不想费劲写了。对比了下，其实这个就是寿星的算法。就是不知道是哪个版本的。
此帖子包含附件:
大小:74.5K |
----------------------------------------------
-
|
| 作者： |
| dacsd (ddd) |
★☆☆☆☆ |
-
|
| 盒子活跃会员 |
|
2024/4/8 8:44:04 |
| 8楼： |
楼主的好东西不少啊，谢谢分享！
----------------------------------------------
-
|
| 作者： |
|
2024/4/8 19:24:13 |
| 9楼： |
赞，感谢分享
----------------------------------------------
-
|
| 作者： |
|
2024/4/9 9:55:18 |
| 10楼： |
从1800-1-1开始？
寿星天文历支持公元前。
这儿是不是寿星天文历的开源源码？
https://gitee.com/sxwnl/sxwnl
----------------------------------------------
-
|
| 作者： |
|
2024/4/9 12:38:29 |
| 11楼： |
@ kylix2008
1800~9999，寿星天文历是开源的，不过不是delphi的，网上有个delphi的，不过不是日历，是24节气时辰对照表。
----------------------------------------------
-
|
| 作者： |
|
2024/4/9 16:28:59 |
| 12楼： |
寿星天文历提供公元-4712年到公元9999年的公历日期查询功能以及-3000年至+3000年的农历查询功能，精度很高，又开源，不过是js代码。
楼主可否考虑通过AI将js代码翻译成pascal代码，融入你的代码中，这样就完美了。
----------------------------------------------
-
|
| 作者： |
|
2024/4/9 16:36:16 |
| 13楼： |
不想费劲了，这个精度足够我用了，我只是用来剪辑视频时查一下农历时间，这个代码我弄了三四年，比较笨😅，你们有兴趣了可以改进改进。期待你们的成果
----------------------------------------------
-
|
| 作者： |
|
2024/4/11 8:45:52 |
| 14楼： |
发现一个小问题,就是每年的最后一个月的节气不会显示,
修复方法:
在procedure tform1.DateChange(MyTime: TDateTime);中找到
qieqistr:=paiYue(year);
在这一行下面插入如下代码:
qieqistr:=qieqistr+paiYue(year+1);
问题就能解决.
此帖子包含附件:
大小:31.0K |
----------------------------------------------
-
|
|
http://www.2ccc.com/article.asp?articleid=5344
