|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
# C; F# D" c. g" M. Ojqd:=LSOLARTERMday(date);
- F' B7 N; u- q3 j2 p8 mfd:=date;
! R. }) Y7 p0 O; I+ ?) p# S5 jtj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
; m* h; {+ J) ?% cdrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;7 l5 O0 L+ R* O# @6 [+ T$ l. A
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
4 z3 J3 F: T3 V1 M) pdrawtext(tj=3 ,0.5,'立春'),COLORGREEN; F; F' ]9 T, R' t' `/ A
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;1 x% N) b b4 B5 V
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
: ]/ v2 b) V' y6 B6 Wdrawtext(tj=6 ,0.5,'春分'),COLORGREEN;
. f6 Q5 D% Z! Y5 S, Odrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;/ c% o ? i9 T) n
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;5 r+ {$ ]6 y3 o" T9 e% r& T
drawtext(tj=9 ,0.5,'立夏'),COLORRED;
/ {$ D- q+ z) @drawtext(tj=10,0.5,'小满'),COLORRED;# \! h9 s% e7 k" v$ ?4 g! t
drawtext(tj=11,0.5,'芒种'),COLORRED;
# r7 |. n7 k: x: }& Z5 o/ Ydrawtext(tj=12,0.5,'夏至'),COLORRED;; H. s8 Y1 ?- P5 w3 s
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
5 l/ U- {9 l7 J/ Y( E, mdrawtext(tj=14,0.5,'大暑'),COLORYELLOW;
. u' c% r3 i0 P4 q+ \' n3 M. q( Idrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;- g: ?3 J- {9 O) r& G; t) \5 o2 D
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;$ f1 L/ \' m# j1 [. W8 F
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
* Y) W& F: V+ m6 @drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
) M7 L) F! s0 W9 H: a8 ^; Wdrawtext(tj=19,0.5,'寒露'),COLORYELLOW;' i: k: P4 }; {: ~& G2 ?6 {3 @
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
$ c! ^) G7 R0 c3 K/ x/ ] @drawtext(tj=21,0.5,'立冬'),COLORFF9900;5 m: B* \- v' g
drawtext(tj=22,0.5,'小雪'),COLORFF9900;
7 {$ }. T& u! `3 Ddrawtext(tj=23,0.5,'大雪'),COLORFF9900;
, q& P m, T' x* J4 wdrawtext(tj=24,0.5,'冬至'),COLORFF9900;
9 i' b6 {3 _5 Z! ?6 o
# N- ~. o$ W3 U$ _1 m F) Xdrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;; w7 v J6 L7 M, O) |8 M
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;+ C& X3 P8 i' E$ e# y1 s
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
, T4 q; e( @* x" t/ j1 Q6 ldrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;0 T3 m2 m3 k9 m! z* y1 u& q
drawtext(tj=9 ,2.5,'巳月'),COLORRED;7 P( x' d" g; b8 B- B$ P
drawtext(tj=11,2.5,'午月'),COLORRED;
* `2 Y1 v& W. ^' _drawtext(tj=13,2.5,'未月'),COLORYELLOW;' w6 y0 M% B( [/ o
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;8 M: ]0 u9 t" j4 _
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;7 [% X: k2 y* M1 a
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
. c6 ?1 c2 u8 Z) U4 C% y0 Rdrawtext(tj=21,2.5,'亥月'),COLORFF9900;
7 B% R% H! p% a" D9 E: b, ndrawtext(tj=23,2.5,'子月'),COLORFF9900;: k0 G, d/ D* }8 p& |
( Q9 V; b6 A0 C, I' X8 l) }
stickline(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;
0 [, E' U+ u% a V' Y1 j* @+ [stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
8 ^8 Q1 A7 d0 J1 Xstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;1 D+ q$ P/ L7 t8 l. [ b
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
6 j1 H T: f) m: rstickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
8 V" `/ G8 z; Z$ o3 R/ z) d
8 }/ \1 R% b0 S2 ^( Idrawnumber(tj,3.5,tj,0),COLORBROWN;* E: f. @/ p6 ?( I, h- r
cond:=if(tj>=6,tj-6,tj+18)*15;& C! T$ ^* u* P$ W' R' K& L
drawnumber(tj ,-0.5,cond,0),COLORGREEN;& l: K3 |& b6 S/ n& _( O0 |. {
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;! o: X& t! O7 r: t0 m7 N! v! t
-1,pointdot,colorblack;/ z) R3 A4 ]% q+ x1 ?
gz:=GANZHI(date,0,2);
4 { w3 ]4 E5 ~/ F6 xstickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|