|
积年数:67017+YEAR,NODRAW; 年:YEAR,NODRAW; YS:=MOD(YEAR,12),NODRAW; 余数:MOD(积年数,60),NODRAW; {DRAWTEXT_FIX(YS=4,0.015,0.01,0,'鼠年'),COLORRED; DRAWTEXT_FIX(YS=5,0.015,0.01,0,'牛年'),COLORRED; DRAWTEXT_FIX(YS=6,0.015,0.01,0,'虎年'),COLORRED; DRAWTEXT_FIX(YS=7,0.015,0.01,0,'兔年'),COLORRED; DRAWTEXT_FIX(YS=8,0.015,0.01,0,'龙年'),COLORRED; DRAWTEXT_FIX(YS=9,0.015,0.01,0,'蛇年'),COLORRED; DRAWTEXT_FIX(YS=10,0.015,0.01,0,'马年'),COLORRED; DRAWTEXT_FIX(YS=11,0.015,0.01,0,'羊年'),COLORRED; DRAWTEXT_FIX(YS=0,0.015,0.01,0,'猴年'),COLORRED; DRAWTEXT_FIX(YS=1,0.015,0.01,0,'鸡年'),COLORRED; DRAWTEXT_FIX(YS=2,0.015,0.01,0,'狗年'),COLORRED; DRAWTEXT_FIX(YS=3,0.015,0.01,0,'猪年'),COLORRED;} YSA:=IF(YS=0,'猴年',IF(YS=1,'鸡年',IF(YS=2,'狗年',IF(YS=3,'猪年',IF (YS=4,'鼠年',IF(YS=5,'牛年',IF(YS=6,'虎年',IF(YS=7,'兔年',IF(YS=8,'龙年',IF(YS=9,' 蛇年',IF(YS=10,'马年',IF(YS=11,'羊年','')))))))))))); DRAWTEXT_FIX(ISLASTBAR,0.95,0.07,0,YSA),COLORRED; YS1:MOD(YEAR,60),NODRAW,COLORRED; DRAWTEXT_FIX(ISLASTBAR,0.02,0.05,0,'皇极积年数：67017+YEAR'),COLORRED; DRAWTEXT_FIX(ISLASTBAR,0.02,0.07,0,STRCAT('皇极积年数：',CON2STR(67017+YEAR,0))),COLORRED; HUI:=CEILING((67017+YEAR)/10800),NODRAW; 会:=IF(HUI=1,'1子会BC67017-BC56218消息卦复',IF(HUI=2,'2丑会BC56217-BC45418消息卦临',IF(HUI=3,'3寅会BC45417-BC34618消息卦泰',IF(HUI=4,'4卯会BC34617-BC23818消息卦大壮',IF(HUI=5,'5辰会BC23817-BC13018消息卦怪',IF(HUI=6,'6巳会BC13017-BC2218消息卦乾',IF(HUI=7,'7午会BC2217-AD8583消息卦垢',IF(HUI=8,'8未会8584-19383消息卦遁', IF(HUI=9,'9申会19384-30183消息卦否',IF(HUI=10,'10酉会30184-40983消息卦观',IF(HUI=11,'11戌会40984-51783消息卦剥',IF(HUI=12,'12亥会51784-62583消息卦坤','')))))))))))); DRAWTEXT_FIX(ISLASTBAR,0.02,0.1,0,STRCAT('元会世运：',会)),COLORMAGENTA; YUN:=CEILING((67017+YEAR)/2160),NODRAW,COLORRED; 正卦:YUN,NODRAW,COLORMAGENTA; 正大运卦:=IF(YUN=1,'1复BC67017-BC64858',IF(YUN=2,'2颐BC64857-BC62698',IF(YUN=3,'3屯BC62697-BC60538',IF(YUN=4,'4益BC60537-BC58378',IF(YUN=5,'5震BC58377-BC56218',IF(YUN=6,'6噬嗑BC56217-BC54058',IF(YUN=7,'7随BC54057-BC51898',IF(YUN=8,'8无妄BC51897-BC49738', IF(YUN=9,'9明夷BC49737-BC47578',IF(YUN=10,'10贲BC47577-BC45418',IF(YUN=11,'11既济BC45417-BC43258',IF(YUN=12,'12家人BC43257-BC41098',IF(YUN=13,'丰BC41097-BC38938', IF(YUN=14,'革BC38937-BC36778',IF(YUN=15,'同人BC36777-BC34618',IF(YUN=16,'临BC34617-BC32458',IF(YUN=17,'损BC32457-BC30298', IF(YUN=18,'节BC30297-BC28138',IF(YUN=19,'中孚BC28137-BC25978',IF(YUN=20,'艮BC25977-BC23818',IF(YUN=21,'谦BC23817-BC21658', IF(YUN=22,'否BC21657-BC19498',IF(YUN=23,'履BC19497-BC17338',IF(YUN=24,'泰BC17337-BC15178', IF(YUN=25,'大蓄BC15177-BC13018',IF(YUN=26,'需BC13017-BC10858',IF(YUN=27,'小蓄BC10857-BC8698',IF(YUN=28,'大壮BC8697-BC6538', IF(YUN=29,'大有BC6537-BC4378',IF(YUN=30,'怪BC4377-BC2218',IF(YUN=31,'垢BC2217-BC58',IF(YUN=32,'大过BC57-AD2103',IF(YUN=33,'鼎,2104-4263', IF(YUN=34,'恒,4264-6423',IF(YUN=35,'巽,6424-8583',IF(YUN=36,'井,8584-10743',IF(YUN=37,'蛊,10744-12903', IF(YUN=38,'升12904-15063',IF(YUN=39,'讼15064-17223',IF(YUN=40,'困17224-19383',IF(YUN=41,'未济19384-21543', IF(YUN=42,'解21544-23703',IF(YUN=43,'涣23704-25863',IF(YUN=44,'蒙25864-28023',IF(YUN=45,'师28024-30183', IF(YUN=46,'遁30184-32343',IF(YUN=47,'咸32344-34503',IF(YUN=48,'旅34504-33663', IF(YUN=49,'小过33664-38823',IF(YUN=50,'渐38824-40983',IF(YUN=51,'蹇40984-43143', IF(YUN=52,'艮43144-45303',IF(YUN=53,'谦45304-47463',IF(YUN=54,'否47464-49623',IF(YUN=55,'萃49624-51783', IF(YUN=56,'晋51784-53943',IF(YUN=57,'豫53944-56103',IF(YUN=58,'观56104-58263',IF(YUN=59,'比58264-60423',IF(YUN=60,'剥60424-62583','')))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); DRAWTEXT_FIX(ISLASTBAR,0.02,0.15,0,STRCAT('正卦：',正大运卦)),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.35,0.15,0,'公元前57年--2103年，共计2160年'),COLORMAGENTA; 运卦:CEILING((67017+YEAR)/360),NODRAW,COLORMAGENTA; 运卦变爻位:CEILING(6*FRACPART((67017+YEAR)/2160)),NODRAW,COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.02,0.2,0,STRCAT(STRCAT('第',CON2STR(运卦,0)),'运')),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.1,0.2,0,'1744年--2103年，共计360年'),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.25,0.2,0,STRCAT(STRCAT('运卦变爻位：第',CON2STR(运卦变爻位,0)),'爻，变动大过卦的第6爻后为垢卦')),COLORMAGENTA; 世卦:CEILING((67017+YEAR)/30),NODRAW,COLORRED; 世卦变爻位:CEILING(6*FRACPART((67017+YEAR)/360)),NODRAW,COLORRED; DRAWTEXT_FIX(ISLASTBAR,0.02,0.25,0,STRCAT(STRCAT('第',CON2STR(世卦,0)),'世')),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.1,0.25,0,'1984年--2043年，共计60年'),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.25,0.25,0,STRCAT(STRCAT('世卦变爻位：第',CON2STR(世卦变爻位,0)),'爻，变动垢卦的第5爻后为鼎卦')),COLORMAGENTA; 旬卦:CEILING((67017+YEAR)/10),NODRAW; 旬卦变爻位:CEILING(6*FRACPART((67017+YEAR)/30)),NODRAW,COLORRED; DRAWTEXT_FIX(ISLASTBAR,0.02,0.3,0,STRCAT(STRCAT('第',CON2STR(旬卦,0)),'旬')),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.1,0.3,0,'2014年--2023年，共计10年'),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.25,0.3,0,STRCAT(STRCAT('旬卦变爻位：第',CON2STR(旬卦变爻位,0)),'爻，变动鼎卦的第4爻后为蛊卦')),COLORMAGENTA; NIANGUA:=MOD(YEAR,60),NODRAW; 年卦:=IF(NIANGUA=32,'1复2072',IF(NIANGUA=33,'2颐2073',IF(NIANGUA=34,'3屯2074',IF(NIANGUA=35,'4益2075',IF(NIANGUA=36,'5震2076',IF(NIANGUA=37,'6噬嗑2077',IF(NIANGUA=38,'7随2078',IF(NIANGUA=39,'8无妄2079',IF(NIANGUA=40,'9明夷2080',IF(NIANGUA=41,'10贲2081',IF(NIANGUA=42,'11既济2022年',IF(NIANGUA=43,'家人2023年',IF(NIANGUA=44,'丰2024年', IF(NIANGUA=45,'革2025年',IF(NIANGUA=46,'同人2026',IF(NIANGUA=47,'临2027',IF(NIANGUA=48,'损2028',IF(NIANGUA=49,'节2029',IF(NIANGUA=50,'中孚2030',IF(NIANGUA=51,'艮2031',IF(NIANGUA=52,'谦2032',IF(NIANGUA=53,'否2033',IF(NIANGUA=54,'履2034',IF(NIANGUA=55,'泰2035', IF(NIANGUA=56,'大蓄2036',IF(NIANGUA=57,'需2037',IF(NIANGUA=58,'小蓄2038',IF(NIANGUA=59,'大壮2039',IF(NIANGUA=0,'大有2040',IF(NIANGUA=1,'怪2041',IF(NIANGUA=2,'垢2042',IF(NIANGUA=3,'大过2043',IF(NIANGUA=4,'鼎2044',IF(NIANGUA=5,'恒2045',IF(NIANGUA=6,'巽2046',IF(NIANGUA=7,'井2047',IF(NIANGUA=8,'蛊2048', IF(NIANGUA=9,'升2049',IF(NIANGUA=10,'讼2050',IF(NIANGUA=11,'困2051',IF(NIANGUA=12,'未济2052',IF(NIANGUA=13,'解2053',IF(NIANGUA=14,'涣2054',IF(NIANGUA=15,'蒙2055',IF(NIANGUA=16,'师2056',IF(NIANGUA=17,'遁2057',IF(NIANGUA=18,'咸2058',IF(NIANGUA=19,'旅2059',IF(NIANGUA=20,'小过2060',IF(NIANGUA=21,'渐2061',IF(NIANGUA=22,'蹇2062', IF(NIANGUA=23,'艮2063',IF(NIANGUA=24,'谦2064',IF(NIANGUA=25,'否2065',IF(NIANGUA=26,'萃2066',IF(NIANGUA=27,'晋2067',IF(NIANGUA=28,'豫2068',IF(NIANGUA=29,'观2069',IF(NIANGUA=30,'比2070',IF(NIANGUA=31,'剥2071','')))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); DRAWTEXT_FIX(ISLASTBAR,0.1,0.35,0,STRCAT(STRCAT(CON2STR(YEAR,0),'年卦：'),年卦)),COLORMAGENTA; DRAWTEXT_FIX(YS1=0,0.01,0.01,0,'57庚申年，29大有卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=1,0.01,0.01,0,'58辛酉年，30块GUAI卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=2,0.01,0.01,0,'59壬戌年，31垢卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=3,0.01,0.01,0,'60癸亥年，32大过卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=4 AND ISLASTBAR,0.01,0.01,0,'1甲子年， 33鼎卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=5 AND ISLASTBAR,0.01,0.01,0,'2乙丑年，34恒卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=6 AND ISLASTBAR,0.01,0.01,0,'3丙寅年，35巽卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=7 AND ISLASTBAR,0.01,0.01,0,'4丁卯年，36井卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=8 AND ISLASTBAR,0.01,0.01,0,'5戊辰年，37蛊卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=9 AND ISLASTBAR,0.01,0.01,0,'6己巳年，38升卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=10 AND ISLASTBAR,0.01,0.01,0,'7庚午年，39讼卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=11 AND ISLASTBAR,0.01,0.01,0,'8辛未年，40困卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=12 AND ISLASTBAR,0.01,0.01,0,'9壬申年，41未济卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=13 AND ISLASTBAR,0.01,0.01,0,'10癸酉年，42解卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=14 AND ISLASTBAR,0.01,0.01,0,'11甲戌年，43涣卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=15 AND ISLASTBAR,0.01,0.01,0,'12乙亥年，44蒙卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=16 AND ISLASTBAR,0.01,0.01,0,'13丙子年，45师卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=17 AND ISLASTBAR,0.01,0.01,0,'14丁丑年，46逐卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=18 AND ISLASTBAR,0.01,0.01,0,'15戊寅年，47咸卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=19 AND ISLASTBAR,0.01,0.01,0,'16己卯年，48旅卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=20 AND ISLASTBAR,0.01,0.01,0,'17庚辰年，49小过卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=21 AND ISLASTBAR,0.01,0.01,0,'18辛巳年，50渐卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=22 AND ISLASTBAR,0.01,0.01,0,'19壬午年，51蹇卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=23 AND ISLASTBAR,0.01,0.01,0,'20癸未年，52艮卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=24 AND ISLASTBAR,0.01,0.01,0,'21甲申年，53谦卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=25 AND ISLASTBAR,0.01,0.01,0,'22乙酉年，54否卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=26 AND ISLASTBAR,0.01,0.01,0,'23丙戌年，55萃卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=27 AND ISLASTBAR,0.01,0.01,0,'24丁亥年，56晋卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=28 AND ISLASTBAR,0.01,0.01,0,'25戊子年，57豫卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=29 AND ISLASTBAR,0.01,0.01,0,'26己丑年，58观卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=30 AND ISLASTBAR,0.01,0.01,0,'27庚寅年，59比卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=31 AND ISLASTBAR,0.01,0.01,0,'28辛卯年，60剥卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=32 AND ISLASTBAR,0.01,0.01,0,'29壬辰年，1复卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=33 AND ISLASTBAR,0.01,0.01,0,'30癸巳年，2颐卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=34 AND ISLASTBAR,0.01,0.01,0,'31甲午年，3屯卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=35 AND ISLASTBAR,0.01,0.01,0,'32乙未年，4益卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=36 AND ISLASTBAR,0.01,0.01,0,'33丙申年，5震卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=37 AND ISLASTBAR,0.01,0.01,0,'34丁酉年，6噬嗑卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=38 AND ISLASTBAR,0.01,0.01,0,'35戊戌年，7随卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=39 AND ISLASTBAR,0.01,0.01,0,'36己亥年，8无妄卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=40 AND ISLASTBAR,0.01,0.01,0,'37庚子年，9明夷卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=41 AND ISLASTBAR,0.01,0.01,0,'38辛丑年，10贲卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=42 AND ISLASTBAR,0.01,0.01,0,'39壬寅年，11既济卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=43 AND ISLASTBAR,0.01,0.01,0,'40癸卯年，12家人卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=44 AND ISLASTBAR,0.01,0.01,0,'41甲辰年，13丰卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=45 AND ISLASTBAR,0.01,0.01,0,'42乙巳年，14革卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=46 AND ISLASTBAR,0.01,0.01,0,'43丙午年，15同人卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=47 AND ISLASTBAR,0.01,0.01,0,'44丁未年，16临卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=48 AND ISLASTBAR,0.01,0.01,0,'45戊申年，17损卦 '),COLORMAGENTA; DRAWTEXT_FIX(YS1=49 AND ISLASTBAR,0.01,0.01,0,'46己酉年，18节卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=50 AND ISLASTBAR,0.01,0.01,0,'47庚戌年，19中孚卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=51 AND ISLASTBAR,0.01,0.01,0,'48辛亥年，20归妹卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=52 AND ISLASTBAR,0.01,0.01,0,'49壬子年，21睽卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=53 AND ISLASTBAR,0.01,0.01,0,'50癸丑年，22兑卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=54 AND ISLASTBAR,0.01,0.01,0,'51甲寅年，23履卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=55 AND ISLASTBAR,0.01,0.01,0,'52乙卯年，24泰卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=56 AND ISLASTBAR,0.01,0.01,0,'53丙辰年，25大畜卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=57 AND ISLASTBAR,0.01,0.01,0,'54丁巳年，26需卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=58 AND ISLASTBAR,0.01,0.01,0,'55戊午年，27小畜卦'),COLORMAGENTA; DRAWTEXT_FIX(YS1=59 AND ISLASTBAR,0.01,0.01,0,'56己未年，28大壮卦'),COLORMAGENTA; |
|
|
