盒子论坛 v2.1

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 年
----------------------------------------------
武汉天气不好

作者：

earthsbest (全能中间件)	▲▲▲▲△	-
	普通会员

2019/5/22 8:54:51

2楼：

cnpack 的 CnCalendar 最大支持到2800年的农历。
https://github.com/cnpack/cnvcl/blob/master/Source/Common/CnCalendar.pas

此帖子包含附件:

大小:65.8K

----------------------------------------------
Delphi4Linux Delphi三层/FireDAC 技术群：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 指导,
我来研究一下.
----------------------------------------------
-

信息

登陆以后才能回复