//廿四节气$ M( g) e% @/ m5 l l# ^/ ?0 H
py:=if(WEEKDAY<>5,LSOLARTERM(DATE),if(LSOLARTERM(DATE)<>0,LSOLARTERM(DATE),if(LSOLARTERM(DATE+1)<>0,LSOLARTERM(DATE+1),LSOLARTERM(DATE+2))));. e$ H" h. A( J+ ~
时间p:=IF(DATATYPE=1,093100,IF(DATATYPE=2,093500,IF(DATATYPE=3,094500,IF(DATATYPE=4,100000,IF(DATATYPE=5,103000,0)))));3 _% Y; t u" h/ i
: X$ q5 K7 ?' |- k- @ N: W
PXTJ:=IF(DATATYPE=6,1,IF(DATATYPE>0 AND DATATYPE<6 AND =时间p,1,0));
$ U i: G- T% lDRAWTEXT(PXTJ=1 and py=1,HIGH,'小寒'),ALIGN0,colorcyan,PXUP20;2 t& c. B) Q+ k3 z
DRAWTEXT(PXTJ=1 and py=2,HIGH,'大寒'),ALIGN0,colorcyan,PXUP20;7 W. U* g% @) a0 r
DRAWTEXT(PXTJ=1 and py=3,HIGH,'立★春'),COLORgreen,ALIGN0,PXUP20;
# k2 n1 A) A$ J; V2 IDRAWTEXT(PXTJ=1 and py=4,HIGH,'雨水'),COLORgreen,ALIGN0,PXUP20;& s5 c3 N' z" q8 t
DRAWTEXT(PXTJ=1 and py=5,HIGH,'惊蛰'),COLORgreen,ALIGN0,PXUP20;
3 F3 i. N, [2 K4 ^- b3 SDRAWTEXT(PXTJ=1 and py=6,HIGH,'春分'),COLORgreen,ALIGN0,PXUP20;
6 X* y9 l0 J4 L1 u/ qDRAWTEXT(PXTJ=1 and py=7,HIGH,'清明'),COLORgreen,ALIGN0,PXUP20;' Z" z3 A; P% \ p5 u
DRAWTEXT(PXTJ=1 and py=8,HIGH,'谷雨'),COLORgreen,ALIGN0,PXUP20;. S9 P. l5 q! P! W* N
DRAWTEXT(PXTJ=1 and py=9,HIGH,'立★夏'),COLORMAGENTA,ALIGN0,PXUP20;8 ?) R& g9 y2 c+ B% v0 E* ~7 g
DRAWTEXT(PXTJ=1 and py=10,HIGH,'小满'),COLORMAGENTA,ALIGN0,PXUP20;0 B5 ]% i- _. [& B- J, g2 l* b
DRAWTEXT(PXTJ=1 and py=11,HIGH,'芒种'),COLORMAGENTA,ALIGN0,PXUP20;
8 ^9 ^6 ^' S' k8 Y ZDRAWTEXT(PXTJ=1 and py=12,HIGH,'夏至'),COLORMAGENTA,ALIGN0,PXUP20;: M8 V# B5 K4 m' r) Z
DRAWTEXT(PXTJ=1 and py=13,HIGH,'小暑'),COLORMAGENTA,ALIGN0,PXUP20;* I6 e h/ B. `6 L
DRAWTEXT(PXTJ=1 and py=14,HIGH,'大暑'),COLORMAGENTA,ALIGN0,PXUP20;
9 ]0 Z7 O. P# Y S# g! c( h N8 gDRAWTEXT(PXTJ=1 and py=15,HIGH,'立★秋'),COLORYELLOW,ALIGN0,PXUP20;
3 s! Y8 v. C- ] G9 X8 tDRAWTEXT(PXTJ=1 and py=16,HIGH,'处暑'),COLORYELLOW,ALIGN0,PXUP20;
& B6 ^% Z" g* F8 C6 tDRAWTEXT(PXTJ=1 and py=17,HIGH,'白露'),COLORYELLOW,ALIGN0,PXUP20;
' ?* w2 l/ N1 I- l0 I6 z9 H6 ODRAWTEXT(PXTJ=1 and py=18,HIGH,'秋分'),COLORYELLOW,ALIGN0,PXUP20;
# R0 P- l9 c+ [4 L+ q9 w+ RDRAWTEXT(PXTJ=1 and py=19,HIGH,'寒露'),COLORYELLOW,ALIGN0,PXUP20;, M& p f. `# H
DRAWTEXT(PXTJ=1 and py=20,HIGH,'霜降'),COLORYELLOW,ALIGN0,PXUP20;
( s7 f( w' m, ? s! wDRAWTEXT(PXTJ=1 and py=21,HIGH,'立★冬'),ALIGN0,colorcyan,PXUP20;% w% o5 j! D& t( H7 o! v5 O' x
DRAWTEXT(PXTJ=1 and py=22,HIGH,'小雪'),ALIGN0,colorcyan,PXUP20;7 r f: X4 r/ y" r8 y
DRAWTEXT(PXTJ=1 and py=23,HIGH,'大雪'),ALIGN0,colorcyan,PXUP20;7 L5 u$ v( `% Y) v
DRAWTEXT(PXTJ=1 and py=24,HIGH,'冬至'),ALIGN0,colorcyan,PXUP20;* e, m$ ~& W* ~' A
--------------------------------------------------, D/ W6 g) i2 W% X* D& t
1)分钟图显示节气
! Y. \' ^1 K3 S- b) M3 Y2)周6/7提前到周五显示 |