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