|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
+ X* o5 ?8 F8 U7 B" L1 xjqd:=LSOLARTERMday(date);0 N! D }1 X, M1 F. \) @. I* b4 t
fd:=date;& {: F: F( _5 H& @
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));! {/ q0 [* Z% `7 C1 n
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;# q- F9 d: c0 k6 O: y
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
% n1 R( t* w: ]7 V+ \/ xdrawtext(tj=3 ,0.5,'立春'),COLORGREEN;0 R, m1 S$ l5 y& E( r& t
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;# L' Y7 o: k( l1 I' R
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;2 t2 `0 F! n2 r
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
- @: `# G" k' @" ?+ ?7 hdrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
8 \: g% e4 `, t( }2 C( ldrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;6 c: f4 X7 R3 X- ^% D1 n) t
drawtext(tj=9 ,0.5,'立夏'),COLORRED;2 w$ t5 V [) A8 U3 [
drawtext(tj=10,0.5,'小满'),COLORRED;
- }$ k" O. z. K9 q( Y3 @drawtext(tj=11,0.5,'芒种'),COLORRED;
/ f% g; O1 C9 |6 Sdrawtext(tj=12,0.5,'夏至'),COLORRED;8 `6 C& [% {4 ]( P
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
% Y9 ]) E# M) H+ @$ E$ p# zdrawtext(tj=14,0.5,'大暑'),COLORYELLOW;; `- O1 l6 z5 c9 J
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;+ N* `2 U* w) w9 x- y2 n# P
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;8 \ X! }9 |, ^0 e7 W
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
% T* p# U# M+ xdrawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
7 }! B* ?2 `( _4 x b6 j, vdrawtext(tj=19,0.5,'寒露'),COLORYELLOW;0 m1 D6 M3 ?0 q0 H9 j6 g" o3 G
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;# u' s( `3 N1 `) o. r
drawtext(tj=21,0.5,'立冬'),COLORFF9900;5 r5 v7 Z* F5 B* i
drawtext(tj=22,0.5,'小雪'),COLORFF9900;& n! Z# J5 W1 g$ D/ a6 z' K7 ^
drawtext(tj=23,0.5,'大雪'),COLORFF9900;
' b0 \9 N' v2 b$ M9 |+ t8 Vdrawtext(tj=24,0.5,'冬至'),COLORFF9900;: X8 [3 q8 W' R/ t* j& Y( S3 g4 [
5 A0 V. l2 S: t+ u8 g; b1 ~$ L
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
2 ?8 P7 m1 V2 N. A* Gdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;/ q8 d; \/ Y$ X5 l8 I$ S
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;0 f" |% Y1 f' V
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
0 z6 u- X4 R+ y# Sdrawtext(tj=9 ,2.5,'巳月'),COLORRED;
: b5 D) _0 u7 _) [5 fdrawtext(tj=11,2.5,'午月'),COLORRED;
X; F2 p0 d% ldrawtext(tj=13,2.5,'未月'),COLORYELLOW;
1 P2 H' L. V- G- d u5 Ndrawtext(tj=15,2.5,'申月'),COLORBBBBBB;% ~$ g7 P& C; P' r3 H
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
2 c1 _% V) J" \2 u* `drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
" k5 P5 v* x( d+ D( W$ P8 rdrawtext(tj=21,2.5,'亥月'),COLORFF9900;+ `* _' U( M0 I, T
drawtext(tj=23,2.5,'子月'),COLORFF9900;' [7 R2 S3 a/ s4 g: j
% M o6 S! i4 V U/ Y6 _8 nstickline(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;& }9 g! r; O b2 F1 O0 D
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
6 N# U, l g6 }/ `0 sstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
9 B4 |/ f$ M5 z6 i" Y- {# N3 v# X$ jstickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
3 ]0 [' L; q$ T" ?' gstickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;! }0 _6 p: h* G; d6 d
" C+ C0 G+ F1 g2 [* p6 k% {drawnumber(tj,3.5,tj,0),COLORBROWN;- a" c# ]6 }. @# ?
cond:=if(tj>=6,tj-6,tj+18)*15;/ [0 z+ j' H: `6 t& a9 ^2 o& O# q, @
drawnumber(tj ,-0.5,cond,0),COLORGREEN;+ C% y( J7 K9 d2 V6 g
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;! l- D* T E0 g: ^$ a% K3 a7 D
-1,pointdot,colorblack;+ s5 q ]* I0 n/ ~. X7 X
gz:=GANZHI(date,0,2);9 |6 t5 z. j8 I
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|