|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;) Q( Z) \& [# D. X
jqd:=LSOLARTERMday(date);; a0 ^4 ]( j6 i; ?
fd:=date;4 f6 L3 t- Q, ~6 e! G/ j( h
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
$ d1 I7 W" Y! z) C0 Qdrawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;9 z! _& k- O( R# _
drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;$ p2 [5 ]' {2 U) J6 O3 z1 e
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
: K7 V8 C0 T7 Q H* Idrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
! F: Q. F! _) h- Z1 A. Xdrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN; ]" ^0 [: w2 u3 E/ v0 b" |% [
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
$ t8 W; f( F5 f F& S" B" _' Hdrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
# M2 m! G$ w8 B4 l7 edrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
2 S! C" `+ X& i/ R9 Qdrawtext(tj=9 ,0.5,'立夏'),COLORRED;: T) B' g! _& u$ G6 X7 a! A$ q; Q2 G
drawtext(tj=10,0.5,'小满'),COLORRED;
& H" q& C8 v" hdrawtext(tj=11,0.5,'芒种'),COLORRED;3 D. y7 Z |5 G3 f1 O
drawtext(tj=12,0.5,'夏至'),COLORRED;* {* }# P* g# W) R- d
drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
$ q; c9 J/ F2 S0 N2 x" ]6 C8 pdrawtext(tj=14,0.5,'大暑'),COLORYELLOW; |( B1 q( |# Q! b" h
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;6 k$ J% T8 e0 q
drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
# N' D: T2 M( Q3 Q5 v# o& ddrawtext(tj=17,0.5,'白露'),COLORBBBBBB;/ m# ~2 U1 g- m {- _0 n
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;) n+ n) l8 M! x6 y$ v8 i% v
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
! T4 a1 N, p, q7 K# ^drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
# z* Q% D) ^+ b; idrawtext(tj=21,0.5,'立冬'),COLORFF9900;. y l2 u3 @4 G# X( g: Z
drawtext(tj=22,0.5,'小雪'),COLORFF9900; ?3 C# {7 Q' J6 m+ o2 r2 ~( o
drawtext(tj=23,0.5,'大雪'),COLORFF9900;
' ]1 j+ X) M2 j7 r- j+ T, vdrawtext(tj=24,0.5,'冬至'),COLORFF9900;* G. r# w# o* ]
' `$ y, B5 C: w; ]0 H0 S
drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
1 X/ [3 _9 S8 e N7 {, m' @' ]3 k. U2 `1 d; pdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
- y# N% i* ~6 w5 Jdrawtext(tj=5 ,2.5,'卯月'),COLORGREEN;5 E. t& Q3 [- \
drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
' @; l# `/ n' j& u {' R* wdrawtext(tj=9 ,2.5,'巳月'),COLORRED;
( Q8 ?) [ ]4 c: L4 Kdrawtext(tj=11,2.5,'午月'),COLORRED;! a5 w$ m0 {: Y
drawtext(tj=13,2.5,'未月'),COLORYELLOW;& K# V/ R2 d5 L1 U$ \% n
drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
' P( @& @' {8 jdrawtext(tj=17,2.5,'酉月'),COLORBBBBBB;& V7 t8 q/ M) V& W
drawtext(tj=19,2.5,'戌月'),COLORYELLOW;( F6 M4 Y; b( [+ f" m
drawtext(tj=21,2.5,'亥月'),COLORFF9900;8 |; `4 a$ Z2 z* g% N( E. o
drawtext(tj=23,2.5,'子月'),COLORFF9900;& M7 ~# Q/ F- w! _) \
' E6 n0 O( \" y8 y* j. {, Y
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;: R' Q: U s9 J/ q0 f) J5 k+ f
stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
7 |+ p3 B* Z0 w q7 l1 p5 Wstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
/ W6 ^: r+ X q+ pstickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
' k; A- h; g8 a: Tstickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;! o6 ?$ N+ ]' C3 a/ |9 s0 t
( h/ x, z6 n7 N. A- r6 S2 C- Q7 vdrawnumber(tj,3.5,tj,0),COLORBROWN;- i9 v: l- G0 C5 b6 e" s
cond:=if(tj>=6,tj-6,tj+18)*15;
3 j) l- |6 m' ~* X. edrawnumber(tj ,-0.5,cond,0),COLORGREEN;2 A3 f; V* r) W7 Z6 K
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED;
' U7 ^2 Z, h$ q-1,pointdot,colorblack;
3 J) `- v8 K: s* |& jgz:=GANZHI(date,0,2);
9 E$ b" R3 U% B) @. X9 Q+ xstickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|