3309518 (Yoy Yi) 08:25:27 A VB written 3309518 (long my heart) 08: 25: 34'Print WdateToedate (# 2/9/2005 #) 'Lunar New Year (Chicken) First Month
Function WDATOEDATE (BYVAL CURTIME AS DATE) AS STRING
Dim Weekname (7), MONTHADD (11), Nonglidata (99), Tiangan (9), Dizhi (11), Shuxiang (11), DayName (30), Monname (12) Dim Curyear, Curmonth, Curday, Curweekday Dim Gonglistr , Weekdaystr, Nonglistr, Nonglidaystr Dim i, M, N, K, Isend, Bit, Twate 'WeekName (0) = "*" Weekname (1) = "Sunday" weekname (2) = "Monday" Weekname 3) = "Tuesday" weekname (4) = "Wednesday" weekname (5) = "Thursday" weekname (6) = "Friday" Weekname (7) = "Saturday" 'Tiandan Name Tiangan (0) = "" tiangan (1) = "" tiangan (2) = "" tiangan (3) = "Ding" tiangan (4) = "" tiangan (5) = "" tiangan (6) = "" tiangan (7 ) = "Xin" tiangan (8) = "" tiangan (9) = "" 'land name dizhi (0) = "子" dizhi (1) = "ugly" dizhi (2) = "" dizhi ( 3) = "" dizhi (4) = "Chen" dizhi (5) = "" dizhi (6) = "午" dizhi (7) = "Di" Dizhi (8) = "Shen" dizhi (9) = "" Dizhi (10) = "" dizhi (11) = "Hai" 'belonging name shuxiang (0) = "rat" shuxiang (1) = "cattle" shuxiang (2) = "Tiger" Shuxiang (3 ) = "Rabbit" shuxiang (4) = "Dragon" SHUX IANG (5) = "Snake" shuxiang (6) = "Ma" shuxiang (7) = "Sheep" shuxiang (8) = "Monkey" shuxiang (9) = "Chicken" shuxiang (10) = "Dog" shuxiang 11) = "Pig" 'Lunar Name DAYNAME (0) = "*" DayName (1) = "First"
DayName (2) = "Junior" DayName (3) = "First Three" DayName (4) = "First Four" DayName (5) = "First Five" DayName (6) = "Chun" DayName (7) = "First seven" dayname (8) = "first eight" dayname (9) = "first nine" dayname (10) = "first ten" daysname (11) = "11" daysname (12) = "twelve" daysname (13) = "13" daysname (14) = "14" dayname (15) = "fifteen" daysname (16) = "16" dayname (17) = "sevente" daysname (18) = " 18 "dayname (19) =" 19 "daysname (20) =" twenty "dayname (21) =" 一 "dayname (22) =" 二 "daysname (23) =" 三 "daysname 24) = "四" daysName (25) = "五" daysname (26) = "六" daysname (27) = "七" dayname (28) = "八" daysname (29) = " Nine "DayName (30) =" Thirty "'Lunar Month Monname (0) =" * "Monname (1) =" Positive "Monname (2) =" Two "Monname (3) =" Three "Monname (4" ) = "Four" Monname (5) = "five" Monname (6) = "six" Monname (7) = "seven" Monname (8) = "eight" Monname (9) = "nine" Monname (10) = "Ten" Monname (11) = "11" Monname (12) = "La" "Question Monthhadd (0) = 0 MONTHADD (1) = 31 Monthadd (2) = 59 Monthadd (3) = 90 Mon Thadd (4) = 120 MONTHADD (5) = 151 MONTHADD (6) = 181 MONTHADD (7) = 212 MONTHADD (9) = 273 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 (15) = 201326 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) = 267611 Nonglidata (24) = 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 NO ngliData (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 (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 'Generates the current Queen, month, day ==> gonglistr curyear = year (curtime) curway = day (curtime) gonglistr = Curyear & Curiar & "Year" IF (Curmonth <10) THEN GONGLISTR = GONGLISTR & "0" & Curmonth & "Month" Else Gonglistr = Gonglistr & Curmonth & "Month" end ififf (Curday <10) Then Gonglistr = Gonglistr & "0" & Curday & "Day" Else Gonglistr =
GONGLISTR & CURDAY & "Japan" endiffs generates the current Queen Week ==> Weekdaystr curweekday = weekday (curwekday) Weekdaystr = weekname (curwekday) 'Calculated to the initial time February 8, 1921: 1921-2-8 ( Journey of the first month of the first month), 2 = (Curyear - 1921) * 365 Int ((Curyear - 1921) / 4) Curday Monthadd (Curmonth - 1) - 38 IF ((Curyear Mod 4) = 0 and curmonth> 2) THEN THEDATE = thisdate 1 end if 'calculates the lunar calendar day, the land, month, day ity = 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 Bit Native Bit Bit = 1 to n Step 1 Bit = Int (Bit / 2) Next Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit Bit IF (this "= 1 exit do end if thisdate = thisdate - 29 - bit n = n - 1 loop if (isend = 1) THEN EX IT Do End IF M = M 1 3309518 (Yo Yo I) 08: 26: 30LOOP Curyear = 1921 M CURMONTH = K - N 1 CURDAY = Twate IF (K = 12) Then IF (curmonth = (int (INT (m) / 65536) 1)) · Curmonth = 1 - Curmonth elseif (Curmonth> (INT (Nonglidata (M) / 65536) 1)) THEN CURMONTH = CURMONTH - 1 End if Endiffs Generates Lunar Day,属 相 ==> nonglistr nonglistr = "Lunar" & tiangan ((Curyear - 4) MOD 60) MOD 10) &
