|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
. ^/ s6 `/ U9 H) A$ _( z+ Ejqd:=LSOLARTERMday(date);
Z" b; r; A( J, V. V6 Tfd:=date;/ U' K- m6 e' z0 F! l6 l( x6 {- z
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));; A H8 ^/ g- c/ R5 E: A. z, _
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;; a. {/ v- ~9 V! x3 c. b' h$ I
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;5 u8 I' \4 e, h* a( V! M
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
# G% N* V, N- i; h8 Y# t7 k) Jdrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
0 v+ V0 P- z4 _; ~: Y' u7 udrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
6 ^ X$ ~ j! |1 \% ~; {$ S5 H1 Vdrawtext(tj=6 ,0.5,'春分'),COLORGREEN;
1 }0 ?. z5 \* w- ^0 Y" mdrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
8 r+ m' I' d/ {- bdrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
! C; H0 c# V2 | Z6 M# tdrawtext(tj=9 ,0.5,'立夏'),COLORRED;
% P1 D& `, L D2 G9 Vdrawtext(tj=10,0.5,'小满'),COLORRED;
, a' T; c$ p* @" i! _5 `% edrawtext(tj=11,0.5,'芒种'),COLORRED;
7 [% w2 a: |6 A" W) N5 ddrawtext(tj=12,0.5,'夏至'),COLORRED;
U$ h+ M1 U' Q! m0 S8 Hdrawtext(tj=13,0.5,'小暑'),COLORYELLOW;
) ~8 X1 S' a5 `0 V- }, G) b1 X3 h, udrawtext(tj=14,0.5,'大暑'),COLORYELLOW;7 L7 Z6 J) `/ |# \% b$ G B+ b
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
6 m+ t8 z) T7 v! K) P2 n+ Q9 [drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;5 F3 M0 K( P) h
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
5 D7 P- }0 {/ H$ w1 \drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;; [; K/ P& p8 s0 K
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;. ?( s# m1 N& X+ Q4 s. e5 `
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;8 S* ]. g1 o1 n T/ r5 N! ^
drawtext(tj=21,0.5,'立冬'),COLORFF9900;8 s3 }+ x3 P, ?5 o1 Y8 k
drawtext(tj=22,0.5,'小雪'),COLORFF9900;
9 u3 N# s4 B6 W# odrawtext(tj=23,0.5,'大雪'),COLORFF9900;8 [ \0 q/ }' X4 }* U- ~3 N
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
! d" l3 z9 \9 H/ \$ P+ k: l2 a3 M9 A0 M6 I% n2 }
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;3 {( x N1 ?3 M. k0 Z/ i7 @) _0 i0 t
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;, \3 s5 x o$ R
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;! q F0 z1 S) x2 F$ o2 k' j, U
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
" ^# c, O# ?1 `drawtext(tj=9 ,2.5,'巳月'),COLORRED;
# @3 W% Z# z& f3 r' n; xdrawtext(tj=11,2.5,'午月'),COLORRED;* P8 a8 O( m! k4 B& B. i
drawtext(tj=13,2.5,'未月'),COLORYELLOW;+ j$ i- V2 f+ N) g+ r9 L q
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;( | U8 }- E/ I* C
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
1 G& `! l; J1 B( Adrawtext(tj=19,2.5,'戌月'),COLORYELLOW;
+ y0 p6 h$ r: \7 Z: k7 b, }drawtext(tj=21,2.5,'亥月'),COLORFF9900;
1 B* L: ]% k' p( Z1 Gdrawtext(tj=23,2.5,'子月'),COLORFF9900;
' v" ^. _7 W6 [' H+ \' I
* }+ H' @4 ?# z' n; O+ Q) D5 R9 b' D/ R9 Astickline(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;
! P8 |) N! F! kstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;( ?6 h8 p% |5 P, [) z" Z
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;/ X2 N* \. h& g6 ?2 K
stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
2 D& R z7 Q6 W" ^% p2 Qstickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;1 _6 F& n' b0 B1 U" C a8 v
6 K* e: ^$ E2 y# l; O* udrawnumber(tj,3.5,tj,0),COLORBROWN;* r: i+ C [$ t. r3 _
cond:=if(tj>=6,tj-6,tj+18)*15;
" v! n+ f$ g# `% u# i& R$ C: j" g4 H- H& [drawnumber(tj ,-0.5,cond,0),COLORGREEN;
2 b% ?% A ?4 e/ b* L/ @$ ]8 Ldrawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;. c- O6 R" H. n" M
-1,pointdot,colorblack;
1 Z" S! E. j% d! B X: X, x0 ogz:=GANZHI(date,0,2);
( R2 y Y5 `6 B1 e. B+ Astickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|