| 软件简介： |
预测万年历类模块(VB6源代码)
1、包括农历1901.1.1--2050.10.30或公历1901.1.1--2050.12.31
2、可实现农历转公历、公历转农历，获取农历字串、干支字串、节时间、气时 间、节名称、气名称、生肖等；广泛应用于万年历、八字预测、六爻预测、姓名预测、选择吉日、风水应用等领域。
3、万年历数据结构简单易懂，可轻松扩展
4、可直接制作成.dll文件，轻松重用
5、稍加修改，便可移植到.Net框架,从而在其它编程语言中重用
****属 性******
m_RLBirthday /'生日农历日期,如019720514
m_GLBirthday
m_StrRL /'农历字串,如一九七二年五月十四
m_GanZiDate /'干支日期,如甲子乙丑丙寅丁卯
m_ShengXiao /'生肖
****方 法*****
名称:GLInit
参数:intGLYear /'公历年; intGLMonth /'公历月; intGLDay /'公历日; intGLHour /'公历时; intGLMinute /'公历分
名称:RLInit
参数:intRLYear /'农历年; intRLMonth /'农历月; intRLDay /'农历日; intRLHour /'农历时; intRLMinute /'农历分
====说明:使用上面的两个方法之一,可以获得属性值
****函 数****
名称:JieOfCurMonth
功能:返回当月节日期
参数:intGLYear /'公历年; intGLMonth /'公历月
名称:QiOfCurMonth
功能:返回当月气日期
参数:intGLYear /'公历年; intGLMonth /'公历月
名称:BeforeJieDate
功能:返回前一节日期
参数:intGLYear /'公历年; intGLMonth /'公历月
名称:AfterJieDate
功能:返回后一节日期
参数:intGLYear /'公历年; intGLMonth /'公历月
名称:NameOfJieQi
功能:返回节气名称
参数: intGLMonth /'公历月; strFlags /'节气标志:=/"J/",返回节名称; =/"Q/",返回气名称
名称:GetGLDate
功能:农历转公历日期
参数:intRLYear /'农历年; intRLMonth /'农历月; intRLDay /'农历日; blnRunYue /'闰月否
名称:GetRLDate
功能:公历转农历,格式:019820505,第一位为闰月标志位:0不闰月,1闰月.
参数:intGLYear /'公历年; intGLMonth /'公历月; intGLDay /'公历日
名称:GetGanZiStr
功能:获取干支字串
参数:dtBirthday,公历日期,包括年月日时分
返回值: 字符串,格式:甲子乙丑丙寅丁卯(依次为年柱月柱日柱时柱)
名称:GetRLStr
功能:获取农历字串
参数:dtGLBirthday,公历日期,包括年月日
返回值: 字符串,格式:一九八九年四月初五
名称:GetShengXiao
功能:获取生肖
参数:strYearZ,年地支
返回值: 生肖字串
|
[ 
![[智格文秘网]QQ交流群](https://pub.idqqimg.com/wpa/images/group.png "[智格文秘网]QQ交流群")