初始农历日:=3;
朔望月:=29.53058782;6 c; q1 s$ _7 F- g3 Z4 E- J$ K
日差:=DATETODAY(DATE)+1;& U2 [& ?" T5 C5 l8 i0 x# c4 W. u
月余数:=(((日差+初始农历日)/朔望月-INTPART((日差+初始农历日)/朔望月))*朔望月);
农历日:=IF(月余数<1,ROUND(月余数+朔望月),INTPART(月余数));4 Q K6 }; V- M
ISCOLOR:=IF(REF(农历日,1)>=农历日 OR 农历日=1,1,0); {农历初一，或者农历初一后的第一交易日画彩线}0 m, T! G* ?: I- U: [, q
NUM:=COUNT(isColor,0); { //当前彩线的个数}
' Y% k0 M, ~! g C) W W3 h
{//绘制彩线}& b" }0 M. \# { A- q7 b
: O4 Y- Y6 u1 @* h; ]& S
IF(ISCOLOR AND MOD(NUM,4)=1,CONST(HHV(H,0)),DRAWNULL),STICK,COLORRED;
IF(ISCOLOR AND MOD(NUM,4)=2,CONST(HHV(H,0)),DRAWNULL),STICK,COLORBLUE;' ?& k i! M5 O
IF(ISCOLOR AND MOD(NUM,4)=3,CONST(HHV(H,0)),DRAWNULL),STICK,COLORGREEN;( I' U% G7 i! n$ V9 s# W
IF(ISCOLOR AND MOD(NUM,4)=0,CONST(HHV(H,0)),DRAWNULL),STICK,COLORWHITE;! |
|
