|
|
7#

楼主 |
发表于 2011-9-24 21:44:35
|
只看该作者
有需要这个24节气指标的
partline(1,1),COLORYELLOW;
9 _1 P) V8 J8 E. O( D. ^' x: ?jqd:=LSOLARTERMday(date);
- k# z! j- `/ U" [/ O3 k H3 a4 Tfd:=date;
( C6 |" @7 W" s: O* Z: T {tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));9 g; v9 ^) e1 q# {1 s& M% a
drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
7 [6 e& M3 V3 Z" @5 t/ jdrawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;1 |0 h, y; y n" q
drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
4 x# L; i5 g# D1 Gdrawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
# P# ~& H0 v) ?; u4 g! Ydrawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;4 V4 X$ E3 J* r, e3 E
drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
- _* }* J, ^& Q* j+ cdrawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
( c* s: W$ z5 Pdrawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;$ h. u) B) O# Q( e# r) q3 d
drawtext(tj=9 ,0.5,'立夏'),COLORRED;
. z F1 Q8 g6 L3 Xdrawtext(tj=10,0.5,'小满'),COLORRED;
4 [: z2 \8 `0 S( idrawtext(tj=11,0.5,'芒种'),COLORRED;
- Z% X) Y% e) y, }* ydrawtext(tj=12,0.5,'夏至'),COLORRED;
: q6 A( V9 K) \; E8 N- H; z/ ]drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
0 v# D! w: l# `& wdrawtext(tj=14,0.5,'大暑'),COLORYELLOW;/ J: @- z3 A+ @5 T9 N$ y& G
drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
8 ^. c2 N X: ~) `drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
3 e$ h5 g4 r0 ]- k# U Xdrawtext(tj=17,0.5,'白露'),COLORBBBBBB;( X" @& ^* I* H- L3 \9 R
drawtext(tj=18,0.5,'秋分'),COLORBBBBBB; x, p- {1 w, @' K, k
drawtext(tj=19,0.5,'寒露'),COLORYELLOW;; X- Y$ {1 j0 \5 S0 \6 v( g6 C
drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
% ?# f; X* c) M5 }: ^# @( k0 Q6 Cdrawtext(tj=21,0.5,'立冬'),COLORFF9900;* U% X% x; s. [4 [' h% W9 Q2 i
drawtext(tj=22,0.5,'小雪'),COLORFF9900;! o- T% Z' \( `% D1 d' n: v
drawtext(tj=23,0.5,'大雪'),COLORFF9900; n$ @0 R4 w9 o3 N' f
drawtext(tj=24,0.5,'冬至'),COLORFF9900;
3 T/ ?! c% B( I* n8 [$ E# h; l
" e9 j4 `: h8 Z. b1 w! G! ldrawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
$ w, L0 i/ j4 M! w. A: Fdrawtext(tj=3 ,2.5,'寅月'),COLORGREEN; u7 F- w. t+ T: J# Y: W6 _4 b8 S
drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
' x- J- B. {- kdrawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;3 i& l5 c# b, Q
drawtext(tj=9 ,2.5,'巳月'),COLORRED;) o3 w$ a& M+ F' K3 _. e. X4 E7 o
drawtext(tj=11,2.5,'午月'),COLORRED;
: z6 @" [, H( k. h; ~' \$ ^drawtext(tj=13,2.5,'未月'),COLORYELLOW;
# _: h& c. X( \drawtext(tj=15,2.5,'申月'),COLORBBBBBB;; G7 L4 \% x8 e5 T" @- X' D; N
drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
- A2 D) Q& v/ t; a8 L! Q$ jdrawtext(tj=19,2.5,'戌月'),COLORYELLOW;
- P+ r9 l F8 V5 b) zdrawtext(tj=21,2.5,'亥月'),COLORFF9900;, }+ |6 ^# T. q* x
drawtext(tj=23,2.5,'子月'),COLORFF9900;
! K8 ], b$ _+ C" K
- q3 Z8 X+ V# O3 u* g% A- s0 tstickline(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;
/ q7 `* F: w$ s8 o6 S6 ostickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
, Y0 f& @# S$ I0 Gstickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
) p. w3 S$ r3 Z: Mstickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;2 B3 X; y& Y' f. @1 `2 v
stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;1 ~, Q! ^+ U' b# m( ?- C
' x0 d$ ?! U1 ~2 _ Y# Qdrawnumber(tj,3.5,tj,0),COLORBROWN;5 v: d$ N9 _# |. Z4 D2 I
cond:=if(tj>=6,tj-6,tj+18)*15;
1 s# q/ K# |# g! r* Kdrawnumber(tj ,-0.5,cond,0),COLORGREEN;. ^8 [" b3 u# j: n% R
drawnumber((tj/3)=intpart(tj/3) and tj<>0,-0.5,cond,0),COLORRED; n- M( o9 \9 x( r( E& ~
-1,pointdot,colorblack;
5 u' V% g! p- W9 a8 P8 Q- ngz:=GANZHI(date,0,2); ]3 J* D3 _' p: N: K' @! w+ [5 J
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW; |
评分
-
1
查看全部评分
-
|