|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
# e3 i1 }3 c1 m" A2 `& s! `* ?4 Mjqd:=LSOLARTERMday(date);- c4 `6 z! m/ i) }/ P+ z
fd:=date;
: [2 F9 M# j6 }& D$ o4 A* q# Stj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
4 a2 \8 P5 y) o: p( o3 d1 U+ p6 jdrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;0 E* r2 ~' l# @8 A1 _; R1 a
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;' ]$ d& t9 D" O% E4 J: u
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;3 A& z( `2 L, w3 F- k/ I+ J1 K
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
& `. n/ I. m/ Q' odrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;+ L" o1 e( ]& }0 S4 }
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;+ W ^. B3 u0 f" j9 ]
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;, N/ T2 a# F/ ? t) L" N
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;; p& {" A: e2 m( a) T/ Q
drawtext(tj=9 ,0.5,'立夏'),COLORRED;, Y; j* j- }. u( ?) E0 f5 @
drawtext(tj=10,0.5,'小满'),COLORRED;, @4 H( [' b# A% C1 \6 B1 V' H
drawtext(tj=11,0.5,'芒种'),COLORRED;
* l- Y* A7 |4 Q) V- v, ~9 S( V4 u7 ydrawtext(tj=12,0.5,'夏至'),COLORRED;2 F) [ z3 c+ u: `2 e' f! u# |7 L
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;! \( ?+ |4 e: ^7 ]/ G7 Y
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;
/ Q9 _2 H. p& j% {* E+ d% mdrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
& S/ O y5 ?8 t4 C9 H8 o' L5 Wdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;# s7 E$ U R% U/ ^+ M8 N
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;; ^. L" r$ ]4 @5 h, q/ g6 C6 Z7 F
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
9 I! u8 ?2 E& `8 Ldrawtext(tj=19,0.5,'寒露'),COLORYELLOW;
1 I: q' E. ^/ l$ v! adrawtext(tj=20,0.5,'霜降'),COLORYELLOW;
4 `1 _' h# N. i( c7 v$ Sdrawtext(tj=21,0.5,'立冬'),COLORFF9900;
7 y1 D6 ~3 T; u, v5 _* sdrawtext(tj=22,0.5,'小雪'),COLORFF9900;4 S: Y( r$ O' R" m" i. I- l
drawtext(tj=23,0.5,'大雪'),COLORFF9900;9 b: j- v; [* f! N- i6 V
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
9 J$ ~0 [3 k" t3 E$ Y% \# n/ z3 L1 m! B4 g. D- w3 t0 \
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;0 @" n: K( W' ]5 E
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
/ k. c) d2 |! l O7 ?* N9 w2 @) sdrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;' I6 G0 |) }9 l- h% Z! V4 k! o
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
6 [+ E+ q6 v, d6 Q' q1 r$ bdrawtext(tj=9 ,2.5,'巳月'),COLORRED;1 m' `" R6 Q, P% b
drawtext(tj=11,2.5,'午月'),COLORRED;
6 S$ b: t+ M g! edrawtext(tj=13,2.5,'未月'),COLORYELLOW;
4 m+ U% h; h4 l# Zdrawtext(tj=15,2.5,'申月'),COLORBBBBBB;/ Y3 C, i8 n) M# K7 L: \
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
' J$ h7 Z! j. v; K" H8 c& Gdrawtext(tj=19,2.5,'戌月'),COLORYELLOW;* k5 ]. x' `( m( [- S+ K( A
drawtext(tj=21,2.5,'亥月'),COLORFF9900;# @$ I7 S. x/ j- {8 \
drawtext(tj=23,2.5,'子月'),COLORFF9900;. t; R2 i( J1 B
* b$ \, r( Q: T; C7 Tstickline(tj=1 or tj=2 or tj=7 or tj=8 or tj=13 or tj=14 or tj=19 or tj=20,0.5,1.5,8,0),COLORYELLOW;4 ]% m+ b1 B3 v0 {1 _
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
" b( p' m z" y+ x5 n. [/ B+ qstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
4 \, K& i" i* t H& @- Istickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
) K' H( n; o3 @0 W# U* A6 D m6 i( ostickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;% i! }+ T1 o, i: W) Z' b
4 G9 ?4 L- P) |" F
drawnumber(tj,3.5,tj,0),COLORBROWN;
+ H) c' O4 Q" Q5 o" bcond:=if(tj>=6,tj-6,tj+18)*15;
, E# G N) F5 h$ ?drawnumber(tj ,-0.5,cond,0),COLORGREEN;. ^+ w, n& q0 [; h. `8 _; B, q
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
* A/ X, ^# B, Z( X& b-1,pointdot,colorblack;3 \ ^7 e) M* q
gz:=GANZHI(date,0,2);7 p% S* ]6 d' q8 ?5 |
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|