|
|
7#
楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
* I: V- X. n9 _$ Cjqd:=LSOLARTERMday(date);
$ ]/ }$ w. H9 l4 Y* q1 o% Afd:=date;
. Y; Z% A) I; @' H2 v& X, q8 k2 Z9 |tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));2 J" Q5 L3 N" M- q, ^
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
! n$ Z3 n! _0 ]) ?1 pdrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
2 M. S& p! g1 p! H1 _+ Ndrawtext(tj=3 ,0.5,'立春'),COLORGREEN;: q, M2 x9 |; o. [5 J
drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
* e6 m9 N( ?& |, u3 _) ]1 zdrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
2 _ Z# M% N* edrawtext(tj=6 ,0.5,'春分'),COLORGREEN; y3 X* Q+ p% `# {3 `- c. o8 w
drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;; z# k8 A0 e- U! t: c! P- y& D6 U
drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;+ U* N* K. T$ j0 R* n5 W! ]
drawtext(tj=9 ,0.5,'立夏'),COLORRED;
, ~0 j7 Z4 c! P5 A z m5 Udrawtext(tj=10,0.5,'小满'),COLORRED;5 z; B+ N: k0 T4 Q
drawtext(tj=11,0.5,'芒种'),COLORRED;, n+ e9 A" V4 ?' q* D w
drawtext(tj=12,0.5,'夏至'),COLORRED;
- p o& I" }. x) [drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
8 i+ v( y. D& \7 w& U edrawtext(tj=14,0.5,'大暑'),COLORYELLOW;
% r- t) c3 V: G0 I( V) { s- f8 X! ?drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
x" j9 j& F/ T' i# Mdrawtext(tj=16,0.5,'处暑'),COLORBBBBBB;' Y+ p1 n6 z% [0 m3 H5 a/ l
drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
) `4 I# i: H7 H! v! [( Y/ {drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
7 e0 Q: j4 F& m) C" v ndrawtext(tj=19,0.5,'寒露'),COLORYELLOW;
$ n& c6 ]7 q& w& `drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
2 p+ `5 b- ]0 W7 Tdrawtext(tj=21,0.5,'立冬'),COLORFF9900;+ ~- {0 C. g5 c; D9 e3 q6 m" c
drawtext(tj=22,0.5,'小雪'),COLORFF9900;
2 g$ L' k4 J/ \+ q/ y& \* B# Ddrawtext(tj=23,0.5,'大雪'),COLORFF9900;: U! a/ S0 ]; _2 b2 U. J$ S
drawtext(tj=24,0.5,'冬至'),COLORFF9900;0 E, {: `% ?* U1 D0 P
- i! f, p, u% R; c3 A% F/ q) N
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
) g1 T+ t) E e" R' P' mdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;) Z' A2 Y- V2 H
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
) B( Q1 w' \6 J U+ \/ c3 jdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
' u! l! C4 G0 H' M( {drawtext(tj=9 ,2.5,'巳月'),COLORRED;
/ t+ I& w2 _( `5 ^drawtext(tj=11,2.5,'午月'),COLORRED;! `4 ^, q; s* c+ Y
drawtext(tj=13,2.5,'未月'),COLORYELLOW;0 i9 ?2 p$ n4 a7 C
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;! E }' z3 }4 ]6 J9 K4 |
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;! Y3 U6 E; X* z+ G9 F
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
, E( m1 J- Y! m& w/ K' j% V! Ddrawtext(tj=21,2.5,'亥月'),COLORFF9900;* F2 u3 ^8 ]6 a- P0 u
drawtext(tj=23,2.5,'子月'),COLORFF9900;% Y5 _/ p( z2 y$ U1 E, n% P! a
% U9 e2 A& ^! A' |) I: x+ T V
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;" O; [ c5 ~& ~/ _
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;% ^5 F5 ?( Z$ y8 W- Z3 o
stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
S4 H7 C' w$ _' o, s, Jstickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
. @/ K7 V) B- T& E' @8 W9 gstickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;) U- }% [: q, i: Z" I( D# d* ^
' L7 w- ]& H8 j q; w$ w5 h# T
drawnumber(tj,3.5,tj,0),COLORBROWN;$ `5 x* _/ i* t" v( y( H, G2 G- r
cond:=if(tj>=6,tj-6,tj+18)*15;
' ?2 l8 v* D0 Sdrawnumber(tj ,-0.5,cond,0),COLORGREEN;( ^# ^0 F6 @0 B0 X/ v& \
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
7 P ?. R. ?" v, ?+ v- x-1,pointdot,colorblack;
|3 S7 H+ w" s C' h: zgz:=GANZHI(date,0,2);
5 V- I2 _, s$ lstickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|
|小黑屋|手机版|Archiver|【阳光飞狐】
( 网站ICP编号：京ICP备06013475号-7 )
发表于 2011-9-23 23:34:24
收藏
分享
发表于 2011-9-24 17:17:23
