<% 'Option Explicit '*********************************************** ' 類名稱：ChinaDay ' 用途： ' 根據輸入的日期計算該日期的農歷天干地支及當年屬相 ' 使用方法： ' 第一個參數為輸入參數，不填寫默認為當日， ' 只計算1921-2-8之后的日期 ' ##-------------------------------------------## ' Dim objChinaDay ' Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni ' Set objChinaDay = New ChinaDay ' Call objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni) ' Response.Write sDay&"
" ' Response.Write sWeekDay&"
" ' Response.Write sChinaYear&"
" ' Response.Write sChinaDay&"
" ' Response.Write sChinaAni&"
" '******************************************************* Class ChinaDay Dim arrWeekName(7), MonthAdd(11), NongliData(99) Dim arrTianGan(9), arrDiZhi(11), arrShuXiang(11), arrDayName(30), arrMonName(12) Dim curTime, curYear, curMonth, curDay, curWeekday Dim i, m, n, k, isEnd, bit, TheDate '初始化數據 Sub Class_Initialize() '--------------------------------------------------- '定義顯示字串 '星期名 arrWeekName(0) = "*" arrWeekName(1) = "星期日" arrWeekName(2) = "星期一" arrWeekName(3) = "星期二" arrWeekName(4) = "星期三" arrWeekName(5) = "星期四" arrWeekName(6) = "星期五" arrWeekName(7) = "星期六" '天干名稱 arrTianGan(0) = "甲" arrTianGan(1) = "乙" arrTianGan(2) = "丙" arrTianGan(3) = "丁" arrTianGan(4) = "戊" arrTianGan(5) = "己" arrTianGan(6) = "庚" arrTianGan(7) = "辛" arrTianGan(8) = "壬" arrTianGan(9) = "癸" '地支名稱 arrDiZhi(0) = "子" arrDiZhi(1) = "丑" arrDiZhi(2) = "寅" arrDiZhi(3) = "卯" arrDiZhi(4) = "辰" arrDiZhi(5) = "巳" arrDiZhi(6) = "午" arrDiZhi(7) = "未" arrDiZhi(8) = "申" arrDiZhi(9) = "酉" arrDiZhi(10) = "戌" arrDiZhi(11) = "亥" '屬相名稱 arrShuXiang(0) = "鼠" arrShuXiang(1) = "牛" arrShuXiang(2) = "虎" arrShuXiang(3) = "兔" arrShuXiang(4) = "龍" arrShuXiang(5) = "蛇" arrShuXiang(6) = "馬" arrShuXiang(7) = "羊" arrShuXiang(8) = "猴" arrShuXiang(9) = "雞" arrShuXiang(10) = "狗" arrShuXiang(11) = "豬" '農歷日期名 arrDayName(0) = "*" arrDayName(1) = "1" arrDayName(2) = "2" arrDayName(3) = "3" arrDayName(4) = "4" arrDayName(5) = "5" arrDayName(6) = "6" arrDayName(7) = "7" arrDayName(8) = "8" arrDayName(9) = "9" arrDayName(10) = "10" arrDayName(11) = "11" arrDayName(12) = "12" arrDayName(13) = "13" arrDayName(14) = "14" arrDayName(15) = "15" arrDayName(16) = "16" arrDayName(17) = "17" arrDayName(18) = "18" arrDayName(19) = "19" arrDayName(20) = "20" arrDayName(21) = "21" arrDayName(22) = "22" arrDayName(23) = "23" arrDayName(24) = "24" arrDayName(25) = "25" arrDayName(26) = "26" arrDayName(27) = "27" arrDayName(28) = "28" arrDayName(29) = "29" arrDayName(30) = "30" '農歷月份名 arrMonName(0) = "*" arrMonName(1) = "正" arrMonName(2) = "二" arrMonName(3) = "三" arrMonName(4) = "四" arrMonName(5) = "五" arrMonName(6) = "六" arrMonName(7) = "七" arrMonName(8) = "八" arrMonName(9) = "九" arrMonName(10) = "十" arrMonName(11) = "十一" arrMonName(12) = "臘" '--------------------------------------------------------- '公差數據定義 '公歷每月前面的天數 MonthAdd(0) = 0 MonthAdd(1) = 31 MonthAdd(2) = 59 MonthAdd(3) = 90 MonthAdd(4) = 120 MonthAdd(5) = 151 MonthAdd(6) = 181 MonthAdd(7) = 212 MonthAdd(8) = 243 MonthAdd(9) = 273 MonthAdd(10) = 304 MonthAdd(11) = 334 '農歷數據 NongliData(0) = 2635 NongliData(1) = 333387 NongliData(2) = 1701 NongliData(3) = 1748 NongliData(4) = 267701 NongliData(5) = 694 NongliData(6) = 2391 NongliData(7) = 133423 NongliData(8) = 1175 NongliData(9) = 396438 NongliData(10) = 3402 NongliData(11) = 3749 NongliData(12) = 331177 NongliData(13) = 1453 NongliData(14) = 694 NongliData(15) = 201326 NongliData(16) = 2350 NongliData(17) = 465197 NongliData(18) = 3221 NongliData(19) = 3402 NongliData(20) = 400202 NongliData(21) = 2901 NongliData(22) = 1386 NongliData(23) = 267611 NongliData(24) = 605 NongliData(25) = 2349 NongliData(26) = 137515 NongliData(27) = 2709 NongliData(28) = 464533 NongliData(29) = 1738 NongliData(30) = 2901 NongliData(31) = 330421 NongliData(32) = 1242 NongliData(33) = 2651 NongliData(34) = 199255 NongliData(35) = 1323 NongliData(36) = 529706 NongliData(37) = 3733 NongliData(38) = 1706 NongliData(39) = 398762 NongliData(40) = 2741 NongliData(41) = 1206 NongliData(42) = 267438 NongliData(43) = 2647 NongliData(44) = 1318 NongliData(45) = 204070 NongliData(46) = 3477 NongliData(47) = 461653 NongliData(48) = 1386 NongliData(49) = 2413 NongliData(50) = 330077 NongliData(51) = 1197 NongliData(52) = 2637 NongliData(53) = 268877 NongliData(54) = 3365 NongliData(55) = 531109 NongliData(56) = 2900 NongliData(57) = 2922 NongliData(58) = 398042 NongliData(59) = 2395 NongliData(60) = 1179 NongliData(61) = 267415 NongliData(62) = 2635 NongliData(63) = 661067 NongliData(64) = 1701 NongliData(65) = 1748 NongliData(66) = 398772 NongliData(67) = 2742 NongliData(68) = 2391 NongliData(69) = 330031 NongliData(70) = 1175 NongliData(71) = 1611 NongliData(72) = 200010 NongliData(73) = 3749 NongliData(74) = 527717 NongliData(75) = 1452 NongliData(76) = 2742 NongliData(77) = 332397 NongliData(78) = 2350 NongliData(79) = 3222 NongliData(80) = 268949 NongliData(81) = 3402 NongliData(82) = 3493 NongliData(83) = 133973 NongliData(84) = 1386 NongliData(85) = 464219 NongliData(86) = 605 NongliData(87) = 2349 NongliData(88) = 334123 NongliData(89) = 2709 NongliData(90) = 2890 NongliData(91) = 267946 NongliData(92) = 2773 NongliData(93) = 592565 NongliData(94) = 1210 NongliData(95) = 2651 NongliData(96) = 395863 NongliData(97) = 1323 NongliData(98) = 2707 NongliData(99) = 265877 End Sub '############################################################ '主要方法 Action ' inDay 輸入日期，如果不輸入則默認為當前日期 ' sDay 中文格式日期 ' sWeekDay 周幾 ' sChinaYear 農歷年 ' sChinaDay 農歷日 ' sChinaAni 屬相 '############################################################ Public Function Action(inDay,sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni) '轉換要轉換的日期 If inDay="" Or Not IsDate(inDay) Then '獲取當前系統時間 curTime = Now() Else curTime = CDate(inDay) End If If Datediff("d",curTime,Cdate("1921-2-8"))>0 Then Exit Function End If '生成當前公歷年、月、日 ==> sDay curYear = Year(curTime) curMonth = Month(curTime) curDay = Day(curTime) 'sDay = curYear&"年" 'If (curMonth < 10) Then 'sDay = sDay&"0"&curMonth&"月" 'Else 'sDay = sDay&curMonth&"月" 'End If If (curDay < 10) Then sDay = sDay&"0"&curDay&"日" Else sDay = sDay&curDay&"日" End If '生成當前公歷星期 ==> sWeekDay curWeekday = Weekday(curTime) sWeekDay = arrWeekName(curWeekday) '計算到初始時間1921年2月8日的天數：1921-2-8(正月初一) TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38 If ((curYear Mod 4) = 0 AND curMonth > 2) Then TheDate = TheDate + 1 End If '計算農歷天干、地支、月、日 isEnd = 0 m = 0 '------------------------------------ Do If (NongliData(m) < 4095) Then k = 11 Else k = 12 End if n = k '------------------------------------ Do If (n < 0) Then Exit Do End If '獲取NongliData(m)的第n個二進制位的值 bit = NongliData(m) For i = 1 To n Step 1 bit = Int(bit / 2) Next bit = bit Mod 2 If (TheDate <= 29 + bit) Then isEnd = 1 Exit Do End If TheDate = TheDate - 29 - bit n = n - 1 Loop '------------------------------------ If (isEnd = 1) Then Exit Do End If m = m + 1 Loop '------------------------------------ curYear = 1921 + m curMonth = k - n + 1 curDay = TheDate If (k = 12) Then If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then curMonth = 1 - curMonth ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then curMonth = curMonth - 1 End if End If '生成農歷天干、地支==> sChinaYear sChinaYear = "農歷"&arrTianGan(((curYear - 4) Mod 60) Mod 10)&arrDiZhi(((curYear - 4) Mod 60) Mod 12)&"年" '生成屬相 == > sChinaAni sChinaAni = arrShuXiang(((curYear - 4) Mod 60) Mod 12) '生成農歷月、日 ==> NongliDayStr 'If (curMonth < 1) Then 'sChinaDay = "閏"&arrMonName(-1 * curMonth) 'Else 'sChinaDay = arrMonName(curMonth) 'End If 'sChinaDay = sChinaDay&"月" sChinaDay = arrDayName(curDay) End Function End Class Function ReadtxtFiles(Filename) Const ForReading = 1 dim fso,ts Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile(server.mappath(Filename), ForReading) ReadtxtFiles = ts.ReadAll ts.Close End Function %> 国产91丝袜在线播放,a级在线免费视频,亚洲欧美日韩国产

午夜无码伦费影视在线观看果冻 I 久久久久久久久久久免费 I 成人爽爽 I 波多野吉衣一二三区乱码 I 久久免费香蕉视频 I 青青青手机在线视频 I 免费人成在线视频无码软件 I 精品三级毛片 I 亚洲成人中文在线 I 干干干综合网 I 国产肥白大熟妇bbbb视频 I 国产麻豆剧传媒精品国产av I 三级黄色大片免费看 I 亚洲va在线va天堂va偷拍 I 四虎影视永久免费观看在线 I 精品无码国产自产野外拍在线 I 国产欧美一区二区精品婷婷 I 伊人春色在线视频 I 久久色网站 I 天堂av手机在线观看 I 日韩福利视频在线观看 I 欧美a不卡 I 西西人体大胆啪啪实拍 I 久久久久久久亚洲视频 I 乐播av一区二区三区在线观 I 国产精品久久久久久久妇 I 成人黄色大片在线观看 I 曰本无码超乳爆乳中文字幕 I 国产精品亚 I 日韩新无码精品毛片 I 亚洲黄网av I 国产麻豆一区二区三区在线观看 I 亚洲精品555 I 韩国美女一区 I 日韩一区二区在线免费观看

<% Dim objChinaDay,html Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni Set objChinaDay = New ChinaDay html=split(ReadtxtFiles("cx.txt"),VbCrLf) for i=0 to 4 Call objChinaDay.Action(date+i,sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni) %> <% next Set objChinaDay = Nothing %>
日期 高潮時間 枯潮時間 潮流情況
<% mm=right("00" & month(date+i),2) dd=right("00" & day(date+i),2) response.write mm & "月" & dd & "日" %> <%=split(html(sChinaDay-1),"|")(1)%> <%=split(html(sChinaDay-1),"|")(2)%> <%=split(html(sChinaDay-1),"|")(3)%> <%=split(html(sChinaDay-1),"|")(4)%> <%=split(html(sChinaDay-1),"|")(5)%>