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