<% 'Option Explicit' *************************************************** ************************************ The name: chinaDay 'use:' According to the date Calculate the lunar day of this date and the genus 'method of use:' The first parameter is input parameters, do not fill in the default to the day, 'only calculate the date of 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 & "
" ## -------------------- ----------------------- ## 'modify by: babyt (Antai)' mail: babyt@mail.9cbs.net 'Welcome to:' http : //blog.9cbs.net/babyt/ 'http://www.facesun.cn' created at: 2005-2-20 'Copyright: This code is non-original. It is collected in 2001, and the original author is unknown.
'License: free' ***************************************************** ******************************************* Class China Dim Arrweekname (7), Monthadd (11), Nonglidata (99) Dim Arrtiangan (9), Arrshuxiang (11), ArrDayName (30), ArrMonname (12) Dim Curtime, Curyear, Curmonth, Curday, Curweekday Dim I, M, N, K, Isend, Bit , TheDate 'Initialization Data SUB Class_initialize () ---------------------------------------------------------------------------------------------------------------------------------- -------------------------------- 'Define the display string' Stymn Arrweekname (0) = "*" Arrweekname (1) = "Sunday" arrweekname (2) = "Monday" arrweekname (3) = "Tuesday" arrweekname (4) = "Thursday" arrweekname (5) = "Friday" arrweekname (6) = "Friday" arrweekname 7) = "Saturday" 'Tiandan Name Arrtiangan (0) = "A" Arrtiangan (1) = "B" Arrtiangan (2) = "C" Arrtiangan (3) = "Ding" Arrtiangan (4) = "Ple" Arrtiangan (5) = "self" arrtiangan (6) = "Geng" arrtiangan (7) = "Xin" arrtiangan (8) = "" arrtiangan (9) = "" 'land name Arrdizhi (0) = "子" Arrdizhi (1) = "ugly" arrdizhi (2) = "寅" arrdizhi (3) = "" arrdizhi (4) = "Chen" Arrdizhi (5) = "" arrdizhi (6) = "" Arrdizhi (7) = "not" arrdizhi (8) = "Shen" arrdizhi (9) = "酉" arrdizhi (10) = "" arrdizhi (11) = "Hai" 'belonging "Arrshuxiang (0) = "Rat" arrshuxiang (1) = "cattle" arrshuxiang (2) = "Tiger" arrshuxiang (3) = "rabbit" arrshuxiang (4) = "Dragon" arrshuxiang (5) = "snake" arrshuxiang (6) = " horse"
Arrshuxiang (7) = "Sheep" arrshuxiang (8) = "Monkey" arrshuxiang (9) = "Chicken" arrshuxiang (10) = "Dog" arrshuxiang (11) = "Pig" 'Lunar Date name ArrDayName (0) = " * "ArrdayName (1) =" First "ArrDayName (2) =" Junior "ArrDayName (3) =" First Three "ArrDayName (4) =" First Four "ArrDayName (5) =" First Five "ArrDayName (6 ) = "First six" arrdayname (7) = "first seven" arrdayname (8) = "first eight" arrdayname (9) = "first nine" arrdayname (10) = "first ten" arrdayname (11) = "11 "Arrdayname (12) =" twelve "arrdayname (13) =" thirteen "arrdayname (14) =" fourteen "arrdayname (15) =" fifteen "arrdayname (16) =" 16 "arrdayname (17) = "Seventeen" arrdayname (18) = "18" arrdayname (19) = "19" arrdayname (20) = "twenty" arrdayname (21) = "一" arrdayname (22) = "二" ArrdayName (23) = "三" arrdayname (24) = "" arrdayname (25) = "五" arrdayname (26) = "六" arrdayname (27) = "廿 7" arrdayname (28) = "廿 八" arrdayname (29) = "九" arrdayname (30) = "30" 'Lunar Month ARRMONNAME (0) = "*" arrmonname (1) = "正" arrmonname (2) = "two" Arrmonname (3) = "three" arrmonname (4) = "four" arrmonname (5) = "five" arrmonname (6) = "six" arrmonname (7) = "seven" ArrmonName (8) = "eight" arrmonname (9) = "nine" arrmonname (10) = "10" arrmonname (11) = "11" arrmonname (12) = "La" '
-------------------------------------------------- ----------------------- 'Tolerance Data Definition' Question Monthdd (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 (10) = 304 MONTHADD (11) = 334 'Lunar Data 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 (23) = 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 (45) = 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 (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 '########################################################################################################################################################################################################################################################################################### ########################### 的 的 的 的Lunar New Year 'Schinaday Lunar Day' Schinaani belongs'
######################################################################################################################################################################################################################################################################################################## ############### pc = = "" or not isdate (inday) THEN ' Get the current system time curtime = now () else curtime = cdate (inDay) end if if datediff ("D", CURTIME, CDATE ("1921-2-8"))> 0 THEN EXIT FUNCTION END IF 'Generates Current Current Calendar Year , Month, day ==> SDAY Curyear = year (curtime) curway = month (curtime) curday = day (curtime) SDAY = Curyear & "New Year" IF (CURMONTH <10) Then SDAY = SDAY & "0" & Curmonth & "Month" ELSE sDay = sDay & curMonth & "month" End If If (curDay <10) Then sDay = sDay & "0" & curDay & "day" Else sDay = sDay & curDay & "day" End If 'to generate the current calendar week ==> sWeekDay curWeekday = Weekday (curTime) sWeekDay = Arrweekname (curweekday) 'Calculated to the initial time February 8, 1921: 1921-2-8 (Priiversary of the First Year) Twate = (Curyear - 1921) * 365 Int (CURYEAR - 1921) / 4) CURDAY MONTHADD (CURMONTH - 1) - 38 IF ((Curyear Mod 4) = 0 and curmonth> 2) THEN THEDATE = these Date 1 end if 'calculates the lunar calendar, the land, the month, the month, the day = 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 'Gets Nth Bit Bottoms of Nonglidata (M) Bit = Nonglidata (M) for i = 1 To N Step 1 Bit = Int (Bit / 2) Next Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit 2 IF (Twate <= 29 bit) Then iSnd =
