|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
* w* F& v/ @. j& N |% X& ajqd:=LSOLARTERMday(date);
1 ?, I5 ]8 z6 @6 X& q/ qfd:=date;
2 g$ v! n- F1 Y, }) K s9 e/ ?5 l) Ptj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
2 v6 i$ w6 a/ c( z7 Idrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;) [3 ?7 h7 t3 A7 q
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
4 `! Z# N- W: H5 K" Ndrawtext(tj=3 ,0.5,'立春'),COLORGREEN;& a! P4 ]* w2 j+ x
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;0 Z" H" U" T+ |' N4 d
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;7 @# w4 i4 O- S* T# Q7 ~" h) f4 G
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
, A, ~6 b/ F* Ldrawtext(tj=7 ,0.5,'清明'),COLORYELLOW; v5 v! ] `) `, C
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;" G" d6 F$ s1 a4 a% n9 e$ ^2 Z
drawtext(tj=9 ,0.5,'立夏'),COLORRED;2 q% W& n) V; u1 t, |" m1 L# P
drawtext(tj=10,0.5,'小满'),COLORRED;
" c7 g, d% o: A/ f, L9 B+ udrawtext(tj=11,0.5,'芒种'),COLORRED;8 s( z' C0 R6 Y2 p; k) B( T) j
drawtext(tj=12,0.5,'夏至'),COLORRED;2 z1 \3 D8 n7 w4 i1 f2 T& c
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;$ X- g( O8 Z* v& w
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;
! u0 i% y0 y2 G# h4 wdrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
$ K( x# ~8 t! f0 h, a \drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
4 } H! Y; ~+ e' ^4 ~: {drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
( O; _# e2 {" Hdrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;, Y; Z6 X- g# W2 `. Y( G
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
: i1 V. ~1 {1 S w4 hdrawtext(tj=20,0.5,'霜降'),COLORYELLOW;
5 R. U" @% m# M/ k7 Tdrawtext(tj=21,0.5,'立冬'),COLORFF9900;
" k/ c# B6 _+ _4 J" Fdrawtext(tj=22,0.5,'小雪'),COLORFF9900;
1 q. {; h$ h; W) ]# a) ?- C8 wdrawtext(tj=23,0.5,'大雪'),COLORFF9900;7 N0 C) A ^) o$ c" I1 w
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
7 n4 U0 ?" f& d0 h. y
( m0 J; I9 G1 c* edrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;: l; A. y2 f+ q( S& W+ O2 W
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;4 }2 K+ `' ~- v9 ?
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
4 f9 q. S& W6 x+ Idrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;8 X: E; \# ~5 X: \9 M( f# U
drawtext(tj=9 ,2.5,'巳月'),COLORRED;
6 }" |" v4 ~$ J; b: E$ xdrawtext(tj=11,2.5,'午月'),COLORRED;
3 T7 k& y+ y) {$ E2 g6 Q1 Adrawtext(tj=13,2.5,'未月'),COLORYELLOW;3 b5 B; s# M& |; Y
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;$ C' X+ [! M2 z, s
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;' A" k: [) g" d0 o, O
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
8 c+ k. Z. C. f. `. L$ ndrawtext(tj=21,2.5,'亥月'),COLORFF9900;
2 {* D5 q# _3 \! m$ {* U2 b, ` zdrawtext(tj=23,2.5,'子月'),COLORFF9900;5 i# a& _* B1 H+ u( T
8 H/ {- }; G% H. {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;& Q4 c' s; O& o! j* K: @0 Z% \% E6 n
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
* g6 k$ U. A# T- Ystickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
i9 M. Q$ j4 ?# S+ T' k' \stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;* o* y5 l4 c8 a. g3 c
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;
9 @- S* t6 K. B2 w( b# o- \; M1 U2 }! `% a2 P g
drawnumber(tj,3.5,tj,0),COLORBROWN;
( _# Z1 N e/ J6 v* i+ lcond:=if(tj>=6,tj-6,tj+18)*15;
# e$ j8 W3 \- Ldrawnumber(tj ,-0.5,cond,0),COLORGREEN;
3 }& ?6 P5 B1 \drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
( a9 v! [' W1 ^7 Y-1,pointdot,colorblack;
9 F& i1 [+ V! |; rgz:=GANZHI(date,0,2);
% T4 i1 ~5 h) q, d2 xstickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|