{干支:干支从1开始,1970到1900天数 25567+1,1990.12.19到1900的天数 33224+1,0.375是收盘修正}
DD:=DATE;
距日:=DATETODAY(DD)+33225-0.375+1,NODRAW;
哪年:=INTPART(DD/10000),NODRAW;
哪节:=(MOD(INTPART(DD/100),100)-1)*2,NODRAW;
积日:=365.242*哪年+6.15+15.2226*哪节-1.9*SIN(0.262*哪节),NODRAW;
积日春:=365.242*哪年+6.15+15.2226*2-1.9*SIN(0.262*2),NODRAW;
年干:=MOD(哪年-(距日<积日春)+6,10)+1,NODRAW;
年支:=MOD(哪年-(距日<积日春)+12,12)+1,NODRAW;
月干:=MOD(哪年*12+MOD(INTPART(DD/100),100)-(距日<积日)+2,10)+1;
月支:=MOD(哪年*12+MOD(INTPART(DD/100),100)-(距日<积日),12)+1;
日干:=MOD(DATETODAY(DD)+4,10)+1;
日支:=MOD(DATETODAY(DD)+6,12)+1;
{干支}
NGW:=IF(年干=1,'甲',IF(年干=2,'乙',IF(年干=3,'丙',IF(年干=4,'丁',IF(年干=5,'戊',IF(年干=6,'己',IF(年干=7,'庚',IF(年干=8,'辛',IF(年干=9,'壬','癸')))))))));
NZW:=IF(年支=1,'子',IF(年支=2,'丑',IF(年支=3,'寅',IF(年支=4,'卯',IF(年支=5,'辰',IF(年支=6,'巳',IF(年支=7,'午',IF(年支=8,'未',IF(年支=9,'申',IF(年支=10,'酉',IF(年支=11,'戌','亥')))))))))));
YGW:=IF(月干=1,'甲',IF(月干=2,'乙',IF(月干=3,'丙',IF(月干=4,'丁',IF(月干=5,'戊',IF(月干=6,'己',IF(月干=7,'庚',IF(月干=8,'辛',IF(月干=9,'壬','癸')))))))));
YZW:=IF(月支=1,'子',IF(月支=2,'丑',IF(月支=3,'寅',IF(月支=4,'卯',IF(月支=5,'辰',IF(月支=6,'巳',IF(月支=7,'午',IF(月支=8,'未',IF(月支=9,'申',IF(月支=10,'酉',IF(月支=11,'戌','亥')))))))))));
RGW:=IF(日干=1,'甲',IF(日干=2,'乙',IF(日干=3,'丙',IF(日干=4,'丁',IF(日干=5,'戊',IF(日干=6,'己',IF(日干=7,'庚',IF(日干=8,'辛',IF(日干=9,'壬','癸')))))))));
RZW:=IF(日支=1,'子',IF(日支=2,'丑',IF(日支=3,'寅',IF(日支=4,'卯',IF(日支=5,'辰',IF(日支=6,'巳',IF(日支=7,'午',IF(日支=8,'未',IF(日支=9,'申',IF(日支=10,'酉',IF(日支=11,'戌','亥')))))))))));
DRAWTEXT(1,6,NGW),COLORFF80FF;
DRAWTEXT(1,5,NZW),COLORFF80FF;
DRAWTEXT(1,4,YGW),COLOR00FF00;
DRAWTEXT(1,3,YZW),COLOR00FF00;
DRAWTEXT(1,2,RGW),COLOR00FFFF;
DRAWTEXT(1,1,RZW),COLOR00FFFF;
{24节气}
AA节:=(360*FRACPART(((DATETODAY(DATE)-21)/(365/360))/360)),NODRAW;
A节:=INTPART(AA节/15)+1,NODRAW;
节N:=A节!=REF(A节,1);
节气:=IF(节N AND A节=3,'立春',IF(节N AND A节=4 ,'雨水',IF(节N AND A节=5,'惊蛰',IF(节N AND A节=6,'春分',
IF(节N AND A节=7,'清明',IF(节N AND A节=8,'谷雨',IF(节N AND A节=9,'立夏',IF(节N AND A节=10,'小满',
IF(节N AND A节=11,'芒种',IF(节N AND A节=12,'夏至',IF(节N AND A节=13,'小暑',IF(节N AND A节=14,'大署',
IF(节N AND A节=15,'立秋',IF(节N AND A节=16,'处暑',IF(节N AND A节=17,'白露',IF(节N AND A节=18,'秋分',
IF(节N AND A节=19,'寒露',IF(节N AND A节=20,'霜降',IF(节N AND A节=21 ,'立冬',IF(节N AND A节=22,'小雪',
IF(节N AND A节=23,'大雪',IF(节N AND A节=24,'冬至',IF(节N AND A节=1,'小寒',IF(节N AND A节=2,'大寒',DRAWNULL))))))))))))))))))))))));
DRAWTEXT(1,7,节气),COLORLIGRAY;
月节:=IF(REFDATE(MONTH,DATE)=1,'小寒5日-7日大寒20日-22日',IF(REFDATE(MONTH,DATE)=2,'立春3日-5日雨水18日-20日',
IF(REFDATE(MONTH,DATE)=3,'惊蛰5日-7日春分20日-22日',IF(REFDATE(MONTH,DATE)=4,'清明4日-6日谷雨19日-21日',
IF(REFDATE(MONTH,DATE)=5,'立夏5日-7日小满20日-22日',IF(REFDATE(MONTH,DATE)=6,'芒种5日-7日夏至21日-23日',
IF(REFDATE(MONTH,DATE)=7,'小暑6日-8日大暑22日-24日',IF(REFDATE(MONTH,DATE)=8,'立秋7日-9日处暑22日-24日',
IF(REFDATE(MONTH,DATE)=9,'白露7日-9日秋分22日-24日',IF(REFDATE(MONTH,DATE)=10,'寒露8日-10日霜降23日-25日',
IF(REFDATE(MONTH,DATE)=11,'立冬7日-9日小雪22日-24日',IF(REFDATE(MONTH,DATE)=12,'大雪6日-8日冬至21日-23日',DRAWNULL))))))))))));
今日:=DATE+19000000,NODRAW;输节K:=STRCAT(CON2STR(今日,0),STRCAT('农历节气',月节));
DRAWTEXT_FIX(1,0.58,0.06,1,输节K),COLORWHITE;
TZ:=-0.01;
JAZ:=MOD(DATETODAY(DATE)-5,7);
DRAWTEXT(JAZ=0,TZ,'一'),COLORRED;
DRAWTEXT(JAZ=1,TZ,'二'),COLORGREEN;
DRAWTEXT(JAZ=2,TZ,'三'),COLORYELLOW;
DRAWTEXT(JAZ=3,TZ,'四'),COLORLIRED;
DRAWTEXT(JAZ=4,TZ,'五'),COLORMAGENTA;
9,POINTDOT,COLORBLACK;
-0.5,POINTDOT,COLORBLACK;
|