gongli2nongli.vb

农历日历 农历日历 农历日历 农历日历 农历日历 农历日历 农历日历 农历日历

    Function GetiTerm(ByVal curUndate As Date, ByVal ii As Integer) As String
        '根据某日期计算当天是否是二十四节气之一
        'curUndate:指定的日期
        Dim i As Integer
        Dim offDate As Double
        Dim vTermInfo() As String
        Dim cTerm() As String
        Dim strMonDay(23) As String
        Dim TempDate As Date
        Dim TempMon, TempDay As String
        '一个节气年的毫秒长度
        Const sTermYearLen As Double = 31556925974.7
        '求节气日期的定气常数（各个节气到小寒的分钟数）（如果能有人提供到秒的常数就好了）
        vTermInfo = Split("0,21208,42467,63836,85337,107014,128867,150921,173149,195551,218072,240693,263343,285989,308563,331033,353350,375494,397447,419210,440795,462224,483532,504758", ",")
        cTerm = Split("小寒,大寒,立春,雨水,惊蛰,春分,清明,谷雨,立夏,小满,芒种,夏至,小暑,大暑,立秋,处暑,白露,秋分,寒露,霜降,立冬,小雪,大雪,冬至", ",")
        For i = 1 To 24
            '节气日的时差公式(时差为分钟)(从1900年大寒到现在这一节气的的分钟数）
            offDate = (sTermYearLen * (curUndate.Year - 1900)) / 60000 + Convert.ToInt32(vTermInfo(i - 1))
            TempDate = CStr(CType(DateAdd("n", offDate, CDate("1900-Jan-06 02:05:00")), Date))
            If TempDate.Month < 10 Then
                TempMon = "0" + TempDate.Month.ToString
            End If
            If TempDate.Day < 10 Then
                TempDay = "0" + TempDate.Day.ToString
            End If
            strMonDay(i - 1) = TempMon + TempDay
        Next
        If curUndate.Month < 10 Then
            TempMon = "0" + curUndate.Month.ToString
        End If
        If curUndate.Day < 10 Then
            TempDay = "0" + curUndate.Day.ToString
        End If
        'For i = 0 To 23
        '    If strMonDay(i) = TempMon + TempDay Then
        '        GetiTerm = cTerm(i)
        '        Exit For
        '    End If
        'Next
        GetiTerm = strMonDay(ii)
    End Function
    Function JeiRi(ByVal dateStr As Date) As String
        '节日农历　’英文
        JeiRiGongliEng(0) = "0101New Year's Day"
        JeiRiGongliEng(1) = "0202World Wetlands Day"
        JeiRiGongliEng(2) = "0214Valentine's Day"
        JeiRiNongliEng(3) = "0303全国爱耳日"
        JeiRiGongliEng(4) = "0305青年志愿者服务日"
        JeiRiGongliEng(5) = "0308International Women' Day"
        JeiRiGongliEng(6) = "0309保护母亲河日"
        JeiRiGongliEng(7) = "0312China Arbor Day"
        JeiRiGongliEng(8) = "0314White Day | International Policemen' Day"
        JeiRiGongliEng(9) = "0315World Consumer Right Day"
        JeiRiGongliEng(10) = "0321World Forest Day | World Sleep Day"
        JeiRiGongliEng(11) = "0322World Water Day"
        JeiRiGongliEng(12) = "0323World Meteorological Day"
        JeiRiGongliEng(13) = "0324World Tuberculosis Day"
        JeiRiGongliEng(14) = "0401April Fools' Day"
        JeiRiGongliEng(15) = "0405Tomb-sweeping Day"
        JeiRiGongliEng(16) = "0407World Health Day"
        JeiRiGongliEng(17) = "0422World Earth Day"
        JeiRiGongliEng(18) = "0426World Intellectual Property Day"
        JeiRiGongliEng(19) = "0501International Labour Day"
        JeiRiGongliEng(20) = "0503World Asthma Day"
        JeiRiGongliEng(21) = "0504Chinese Youth Day"
        JeiRiGongliEng(22) = "0508World Red-Cross Day"
        JeiRiGongliEng(23) = "0512International Nurse Day"
        JeiRiGongliEng(24) = "0515International Family Day"
        JeiRiGongliEng(25) = "0517World Telecommunications Day"
        JeiRiGongliEng(26) = "0520全国学生营养日()"
        JeiRiGongliEng(27) = "0523International Milk Day"
        JeiRiGongliEng(28) = "0531World No-Smoking Day"
        JeiRiGongliEng(29) = "0601International Children's Day"
        JeiRiGongliEng(30) = "0605International Environment Day"
        JeiRiGongliEng(31) = "0606全国爱眼日()"
        JeiRiGongliEng(32) = "0617World Day to combat desertification"
        JeiRiGongliEng(33) = "0623International Olympic Day"
        JeiRiGongliEng(34) = "0625全国土地日()"
        JeiRiGongliEng(35) = "0626International Day Against Drug Abuse and Illicit Trafficking"
        JeiRiGongliEng(36) = "0701Anniversary of the Founding of the Chinese Communist Party "
        JeiRiGongliEng(37) = "0701International Architecture Day"
        JeiRiGongliEng(38) = "0707中国人民抗日战争纪念日()"
        JeiRiGongliEng(39) = "0711World Population Day"
        JeiRiGongliEng(40) = "0801Army Day"
        JeiRiGongliEng(41) = "0812International Youth Day"
        JeiRiGongliEng(42) = "0908International Anti-illiteracy Day"
        JeiRiGongliEng(43) = "0910Teacher's Day"
        JeiRiGongliEng(44) = "0916中国脑健康日()"
        JeiRiGongliEng(45) = "0916International Day for the Preservation of the Ozone Layer"
        JeiRiGongliEng(46) = "0920全国爱牙日()"
        JeiRiGongliEng(47) = "0921World Cease-fire Day"
        JeiRiGongliEng(48) = "0927World Tourism Day"
        JeiRiGongliEng(49) = "1001National Day"
        JeiRiGongliEng(50) = "1001International Music Day"
        JeiRiGongliEng(51) = "1001International Day of Older Persons"
        JeiRiGongliEng(52) = "1004World Animal Day"
        JeiRiGongliEng(53) = "1005World Teachers' Day"
        JeiRiGongliEng(54) = "1008全国高血压日()"
        JeiRiGongliEng(55) = "1009World Post Day"
        JeiRiGongliEng(56) = "1010World Mental Health Day"
        JeiRiGongliEng(57) = "1014World Standards Day"
        JeiRiGongliEng(58) = "1015International Day of the Blind"
        JeiRiGongliEng(59) = "1015World Rural Women's Day"
        JeiRiGongliEng(60) = "1016World Food Day"
        JeiRiGongliEng(61) = "1017International Day for the Eradication of Poverty"
        JeiRiGongliEng(62) = "1024United Nations Day"
        JeiRiGongliEng(63) = "1024World Development Information Day"
        JeiRiGongliEng(64) = "1028中国男性健康日()"
        JeiRiGongliEng(65) = "1029International Biodiversity Day"
        JeiRiGongliEng(66) = "1031Halloween"
        JeiRiGongliEng(67) = "1108中国记者节()"
        JeiRiGongliEng(68) = "1109消防宣传日()"
        JeiRiGongliEng(69) = "1114World Diabetes Day"
        JeiRiGongliEng(70) = "1117国际大学生节()"
        JeiRiGongliEng(71) = "1125International Day For the elimination of Violence against Women"
        JeiRiGongliEng(72) = "1201World AIDS Day"
        JeiRiGongliEng(73) = "1203World Disabled Day"
        JeiRiGongliEng(74) = "1204全国法制宣传日()"
        JeiRiGongliEng(75) = "1209World Football Day"
        JeiRiGongliEng(76) = "1225Christmas Day"
        JeiRiGongliEng(77) = "1229International Biological Diversity Day"
        '中文
        JeiRiGongli(0) = "0101元旦"
        JeiRiGongli(1) = "0202世界湿地日"
        JeiRiGongli(2) = "0214情人节"
        JeiRiGongli(3) = "0303全国爱耳日"
        JeiRiGongli(4) = "0305青年志愿者服务日"
        JeiRiGongli(5) = "0308国际妇女节"
        JeiRiGongli(6) = "0309保护母亲河日"
        JeiRiGongli(7) = "0312中国植树节"
        JeiRiGongli(8) = "0314白色情人节 国际警察日"
        JeiRiGongli(9) = "0315世界消费者权益日"
        JeiRiGongli(10) = "0321世界森林日 世界睡眠日"
        JeiRiGongli(11) = "0322世界水日"
        JeiRiGongli(12) = "0323世界气象日"
        JeiRiGongli(13) = "0324世界防治结核病日"
        JeiRiGongli(14) = "0401愚人节"
        JeiRiGongli(15) = "0405清明节"
        JeiRiGongli(16) = "0407世界卫生日"
        JeiRiGongli(17) = "0422世界地球日"
        JeiRiGongli(18) = "0426世界知识产权日"
        JeiRiGongli(19) = "0501国际劳动节"
        JeiRiGongli(20) = "0503世界哮喘日"
        JeiRiGongli(21) = "0504中国青年节"
        JeiRiGongli(22) = "0508世界红十字日"
        JeiRiGongli(23) = "0512国际护士节"
        JeiRiGongli(24) = "0515国际家庭日"
        JeiRiGongli(25) = "0517世界电信日"
        JeiRiGongli(26) = "0520全国学生营养日"
        JeiRiGongli(27) = "0523国际牛奶日"
        JeiRiGongli(28) = "0531世界无烟日"
        JeiRiGongli(29) = "0601国际儿童节"
        JeiRiGongli(30) = "0605世界环境日"
        JeiRiGongli(31) = "0606全国爱眼日"
        JeiRiGongli(32) = "0617世界防治荒漠化和干旱日"
        JeiRiGongli(33) = "0623国际奥林匹克日"
        JeiRiGongli(34) = "0625全国土地日"
        JeiRiGongli(35) = "0626国际禁毒日"
        JeiRiGongli(36) = "0701中国共产党诞生日"
        JeiRiGongli(37) = "0701国际建筑日"
        JeiRiGongli(38) = "0707中国人民抗日战争纪念日"
        JeiRiGongli(39) = "0711世界人口日"
        JeiRiGongli(40) = "0801中国人民解放军建军节"
        JeiRiGongli(41) = "0812国际青年节"
        JeiRiGongli(42) = "0908国际扫盲日"
        JeiRiGongli(43) = "0910中国教师节"
        JeiRiGongli(44) = "0916中国脑健康日"
        JeiRiGongli(45) = "0916国际臭氧层保护日"
        JeiRiGongli(46) = "0920全国爱牙日"
        JeiRiGongli(47) = "0921世界停火日"
        JeiRiGongli(48) = "0927世界旅游日"
        JeiRiGongli(49) = "1001中华人民共和国国庆节"
        JeiRiGongli(50) = "1001国际音乐日"
        JeiRiGongli(51) = "1001国际老年人日"
        JeiRiGongli(52) = "1004世界动物日"
        JeiRiGongli(53) = "1005世界教师日（联合国教科文组织确立）"
        JeiRiGongli(54) = "1008全国高血压日"
        JeiRiGongli(55) = "1009世界邮政日"
        JeiRiGongli(56) = "1010世界精神卫生日"
        JeiRiGongli(57) = "1014世界标准日"
        JeiRiGongli(58) = "1015国际盲人节"
        JeiRiGongli(59) = "1015世界农村妇女日"
        JeiRiGongli(60) = "1016世界粮食日"
        JeiRiGongli(61) = "1017国际消除贫困日"
        JeiRiGongli(62) = "1024联合国日"
        JeiRiGongli(63) = "1024世界发展新闻日"
        JeiRiGongli(64) = "1028中国男性健康日"
        JeiRiGongli(65) = "1029国际生物多样性日"
        JeiRiGongli(66) = "1031万圣节"
        JeiRiGongli(67) = "1108中国记者节"
        JeiRiGongli(68) = "1109消防宣传日"
        JeiRiGongli(69) = "1114世界糖尿病日"
        JeiRiGongli(70) = "1117国际大学生节"
        JeiRiGongli(71) = "1125国际消除对妇女的暴力日"
        JeiRiGongli(72) = "1201世界爱滋病日"
        JeiRiGongli(73) = "1203世界残疾人日"
        JeiRiGongli(74) = "1204全国法制宣传日"
        JeiRiGongli(75) = "1209世界足球日"
        JeiRiGongli(76) = "1225圣诞节"
        JeiRiGongli(77) = "1229国际生物多样性日"
        Dim strMon As String = dateStr.Month
        If strMon < 10 Then
            strMon = "0" + strMon
        End If
        Dim strDay As String = dateStr.Day
        If strDay < 10 Then
            strDay = "0" + strDay
        End If
        For i = 0 To 77
            If JeiRiGongli(i).Substring(0, 4) = strMon + strDay Then
                JeiRi = JeiRi + JeiRiGongli(i).Substring(4, JeiRiGongli(i).Length - 4)
            End If
        Next
        Return JeiRi
    End Function
End Class

Public Class Xingzhuo
    Dim XZChn() As String
    Dim XZEng() As String
    Dim XZnum As Integer
    Function XingZhuo(ByVal GLdate As Date, ByVal IsChn As Boolean) As String
        'IsChnOrEng 为true是中文，false是英文
        XZChn = Split("魔羯座,水瓶座,双鱼座,牡羊座,金牛座,双子座,巨蟹座,狮子座,处女座,天秤座,天蝎座,射手座", ",")
        XZEng = Split("Capricorn,Aquarius,Pisces,Aries,Taurus,Gemini,Cancer,Leo,Virgo,Libra,Scorpio,Sagittarius", ",")
        Dim strDay As String = GLdate.Day
        If GLdate.Day < 10 Then
            strDay = "0" + strDay
        End If
        Dim intMonDay As Integer = Convert.ToInt32(GLdate.Month.ToString + strDay)
        Select Case intMonDay
            Case 120 To 218  '1/20 - 2/18
                XZnum = 1 'Return  "水瓶座"
            Case 219 To 320 '2/19 - 3/20
                XZnum = 2 'Return "双鱼座"
            Case 321 To 420 '3/21 - 4/20
                XZnum = 3 ' Return "牡羊座"
            Case 421 To 520 '4/21 - 5/20
                XZnum = 4 'Return "金牛座"
            Case 521 To 621 '双子座 (5/21 - 6/21)
                XZnum = 5 'Return "双子座"
            Case 622 To 722 '巨蟹座 (6/22 - 7/22)
                XZnum = 6 ' Return "巨蟹座"
            Case 723 To 822 '狮子座 (7/23 - 8/22)
                XZnum = 7 ' Return "狮子座"
            Case 823 To 922 '处女座 (8/23 - 9/22)
                XZnum = 8 'Return "处女座"
            Case 923 To 1022 '天秤座 (9/23 - 10/22)
                XZnum = 9 ' Return "天秤座"
            Case 1023 To 1121 '天蝎座 (10/23 - 11/21)
                XZnum = 10 'Return "天蝎座"
            Case 1122 To 1221 '射手座 (11/22 - 12/21)
                XZnum = 11 ' Return "射手座"
            Case Else '魔羯座 (12/22 - 1/19)
                XZnum = 0 'Return "魔羯座"
        End Select
        If IsChn = True Then
            Return XZChn(XZnum)
        Else
            Return XZEng(XZnum)
        End If
    End Function
End Class