预测万年历类模块(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,年地支
返回值: 生肖字串 |
