预测万年历类模块(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,年地支

　　返回值: 生肖字串