DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: jjiedada
今日帖子: 0
在线用户: 0
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 plusv (plusv) ▲▲▲▲△ -
注册会员
2019/5/22 1:35:19
标题:
是否能修改万年历源码(带农历)从 2050 年到 2100 年以上 浏览:563
加入我的收藏
楼主: Delphi 万年历源码(带农历)
http://www.newxing.com/Code/Delphi/other/330.html

还不错用,
不过只能到 2050 年有点不够,
若能到 2100 年或以上更好,
有大牛能改吗 ?

DateCn.pas

  gLunarHolDay: array[0..1799] of Byte = (
    $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77,
    $96, $A4, $96, $96, $97, $87, $79, $79, $79, $69, $78, $78,


  CnData: array[0..599] of Byte = (
    $0B, $52, $BA, $00, $16, $A9, $5D, $00, $83, $A9, $37, $05, $0E, $74, $9B, $00,
    $1A, $B6, $55, $00, $87, $B5, $55, $04, $11, $55, $AA, $00, $1C, $A6, $B5, $00,

这些数是如何取得 ?
----------------------------------------------
-
作者:
男 dbyoung (dbyoung) ★☆☆☆☆ -
普通会员
2019/5/22 7:59:40
1楼: https://blog.csdn.net/dbyoung/article/details/44451833

从.net源码中复制过来的中国农历数组,做万年历必备

从 1900 到 2100 年
----------------------------------------------
Delphi7爱好者
作者:
男 earthsbest (全能中间件) ▲▲△△△ -
注册会员
2019/5/22 8:54:51
2楼: cnpack 的 CnCalendar 最大支持到2800年的农历。
https://github.com/cnpack/cnvcl/blob/master/Source/Common/CnCalendar.pas
此帖子包含附件:
PNG 图像
大小:65.8K
----------------------------------------------
Delphi4Linux交流群:734515869 http://www.cnblogs.com/rtcmw
作者:
男 dolang (dolang) ★☆☆☆☆ -
普通会员
2019/5/22 9:03:40
3楼: 顺便问一下,这些万年历,能算出今天宜做什么,禁做什么吗?
----------------------------------------------
-
作者:
男 cnpack (CnPack) ★☆☆☆☆ -
普通会员
2019/5/22 10:33:23
4楼: CnPack的CnCalendar.pas里能计算很多包括黄历在内的历法概念:

  * 星期
  * 公历年月日时的干支 (四柱、八字)
  * 节气的公历交节时刻
  * 星座
  * 阴阳五行、纳音五行、三合、十二建、二十八宿日、九星等黄历概念
  * 公历转农历(部分)
  * 数九、三伏、入梅、出梅
  * 日出日落时刻的计算

但不包括运势……
----------------------------------------------
欢迎使用CnPack IDE Wizards
http://www.cnpack.org/
作者:
男 abcjingtong (jingtong) ▲▲▲▲▲ -
注册会员
2019/5/22 14:00:28
5楼: 运势?科学与迷信要完美结合?
----------------------------------------------
18114532@qq.com
作者:
男 dolang (dolang) ★☆☆☆☆ -
普通会员
2019/5/22 14:34:15
6楼: 哈哈,现在是大数据算命啊
----------------------------------------------
-
作者:
男 plusv (plusv) ▲▲▲▲△ -
注册会员
2019/5/23 21:41:25
7楼: 真是谢谢 大牛 dbyoung/earthsbest/cnpack 指导,
我来研究一下.
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行39.0625毫秒 RSS