|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
0 J5 N- R" M$ o* Ijqd:=LSOLARTERMday(date);9 m: F3 ^3 w& E9 v0 y) O4 P
fd:=date;# F' O7 t- o$ A
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));& ~9 p# N& }3 w2 v+ g6 Y7 F. C
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
3 u# f3 g1 v5 g5 S0 Wdrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;2 n0 t( H5 X, z
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
: X) l, r# y/ [( G) Sdrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;( Q% b+ i4 X3 r+ Z' z( }
drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;# L4 w; F0 @+ r" P& I
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
" ]- L' ?& V4 H& w/ ]; U4 odrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
+ Q5 ?! |# d/ m- q2 n6 t/ V8 |drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
4 h: b6 M$ [; X( y: _9 r! K1 G/ E8 P, sdrawtext(tj=9 ,0.5,'立夏'),COLORRED;
- H4 B9 {1 N) J1 A6 ddrawtext(tj=10,0.5,'小满'),COLORRED;
! J: C3 ~9 h; l, u* Ddrawtext(tj=11,0.5,'芒种'),COLORRED;
* B3 v- l7 S7 c" K) Udrawtext(tj=12,0.5,'夏至'),COLORRED;! J( c, t: W3 h( C/ n5 h
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;# j% F l5 `$ n) ]# E2 R! A7 V5 {3 c
drawtext(tj=14,0.5,'大暑'),COLORYELLOW;
8 ?4 x" @& U- R, P7 k# v v* ]# ~3 edrawtext(tj=15,0.5,'立秋'),COLORBBBBBB;' ~- F8 X" J& v% f- n
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
3 u0 M$ J- i1 V9 x) B) a5 \+ r* Odrawtext(tj=17,0.5,'白露'),COLORBBBBBB;) |# c6 |+ W, q! q6 f# S1 N( c
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
7 O O/ V& X2 y7 m, Qdrawtext(tj=19,0.5,'寒露'),COLORYELLOW;
]2 O- W/ K$ ^3 Q5 Rdrawtext(tj=20,0.5,'霜降'),COLORYELLOW;* x+ X" M# L' C7 z
drawtext(tj=21,0.5,'立冬'),COLORFF9900;
5 X: I* n1 d" l# ndrawtext(tj=22,0.5,'小雪'),COLORFF9900;" J: w4 F/ y" `4 [% f+ k& {1 O1 Q
drawtext(tj=23,0.5,'大雪'),COLORFF9900;
5 v4 ]0 i0 S/ o5 {7 jdrawtext(tj=24,0.5,'冬至'),COLORFF9900;% x; z9 ^+ I# N; l6 x, K* w. C
0 b# i# r4 S1 M
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;8 e* Q' x% ^& x
drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
* D9 Q1 _; e1 I' W4 X( E& xdrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;& E0 {+ T/ _) ?# }5 M$ o
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;, c* x5 y0 C0 r6 m
drawtext(tj=9 ,2.5,'巳月'),COLORRED;
3 e9 {( n" [9 a5 T# m; d. ldrawtext(tj=11,2.5,'午月'),COLORRED;
0 V) x" j: `' ~8 o5 l* x/ u. m5 h, D& Ndrawtext(tj=13,2.5,'未月'),COLORYELLOW;$ t7 S; @1 A# Y) y1 d! ]8 u0 D
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;" _1 G3 v# o+ v0 c4 s
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
, L. H% _) ]6 c( _/ [( qdrawtext(tj=19,2.5,'戌月'),COLORYELLOW;4 j7 t* |/ M# O. y# N- }9 b1 p
drawtext(tj=21,2.5,'亥月'),COLORFF9900;
/ x0 A( e( @$ i% `9 t1 y* _drawtext(tj=23,2.5,'子月'),COLORFF9900;) z+ F1 t* M/ y
6 d/ ]0 H- `% t1 H- N" 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;
' t1 K4 ]; Q$ w) A9 x1 c0 b6 ?0 l3 Cstickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
& p$ V: L; z8 ~( _: H$ p+ n) t* Mstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
( D% n, F0 z0 g9 T, w$ c; D9 D- ?stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;: f3 T' a. j" I
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;* p! a# `3 f" `: { k! [
3 @* V) G) ]+ @$ k3 M( T# m
drawnumber(tj,3.5,tj,0),COLORBROWN;: Y' e; L; R: U$ g
cond:=if(tj>=6,tj-6,tj+18)*15;
% t! C, n5 _3 \. P" {9 bdrawnumber(tj ,-0.5,cond,0),COLORGREEN;, r# @5 u1 S0 B9 i- w0 `; B
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;9 t- Z5 d \! w# W$ R2 B
-1,pointdot,colorblack;
6 Y; @' R2 _4 U7 U% {4 B5 c5 Xgz:=GANZHI(date,0,2);
4 Y" x. L, c* P. [* C' a1 l; `9 xstickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|