|
|
建议把干支和上下弦和满月加上,下面是原代码
{注意:在管理菜单-选项-数据-勾选中干支纪年纪月以节气为始止。}
k:=sysparam(1)=barpos;{光标}
日:drawyitext(date,3,ganzhi(date,0,2),0)color71b255 align3;
drawyitext(k and date,3,ganzhi(date,0,2),0)colorred align3;{日干支=4}
y:=ganzhi(date,0,1)<>ref(ganzhi(date,0,1),1);
stickline(y,0,2,0,0)colorff9900;
月:drawyitext(y,2,ganzhi(date,0,1),0)colorred align3;{农历月=2}
年:drawyitext(y,2,ganzhi(date,0,0),0)colormagenta align3 shift2;{年=2}
partline(1,1) color009999;
n:=1;{节气=n=1}
j1:=date-lsolartermdate(1)>=0;jj1:=j1>ref(j1,1);
j2:=date-lsolartermdate(2)>=0;jj2:=j2>ref(j2,1);
j3:=date-lsolartermdate(3)>=0;jj3:=j3>ref(j3,1);
j4:=date-lsolartermdate(4)>=0;jj4:=j4>ref(j4,1);
j5:=date-lsolartermdate(5)>=0;jj5:=j5>ref(j5,1);
j6:=date-lsolartermdate(6)>=0;jj6:=j6>ref(j6,1);
j7:=date-lsolartermdate(7)>=0;jj7:=j7>ref(j7,1);
j8:=date-lsolartermdate(8)>=0;jj8:=j8>ref(j8,1);
j9:=date-lsolartermdate(9)>=0;jj9:=j9>ref(j9,1);
j10:=date-lsolartermdate(10)>=0;jj10:=j10>ref(j10,1);
j11:=date-lsolartermdate(11)>=0;jj11:=j11>ref(j11,1);
j12:=date-lsolartermdate(12)>=0;jj12:=j12>ref(j12,1);
j13:=date-lsolartermdate(13)>=0;jj13:=j13>ref(j13,1);
j14:=date-lsolartermdate(14)>=0;jj14:=j14>ref(j14,1);
j15:=date-lsolartermdate(15)>=0;jj15:=j15>ref(j15,1);
j16:=date-lsolartermdate(16)>=0;jj16:=j16>ref(j16,1);
j17:=date-lsolartermdate(17)>=0;jj17:=j17>ref(j17,1);
j18:=date-lsolartermdate(18)>=0;jj18:=j18>ref(j18,1);
j19:=date-lsolartermdate(19)>=0;jj19:=j19>ref(j19,1);
j20:=date-lsolartermdate(20)>=0;jj20:=j20>ref(j20,1);
j21:=date-lsolartermdate(21)>=0;jj21:=j21>ref(j21,1);
j22:=date-lsolartermdate(22)>=0;jj22:=j22>ref(j22,1);
j23:=date-lsolartermdate(23)>=0;jj23:=j23>ref(j23,1);
j24:=date-lsolartermdate(24)>=0;jj24:=j24>ref(j24,1);
drawtext(jj1,n,'小寒') coloryellow;drawtext(jj2,n,'大寒') coloryellow;
drawtext(jj3,n,'立春') color71b255;drawtext(jj4,n,'雨水') color71b255;
drawtext(jj5,n,'惊蛰') color71b255;drawtext(jj6,n,'春分') color71b255;
drawtext(jj7,n,'清明') coloryellow;drawtext(jj8,n,'谷雨') coloryellow;
drawtext(jj9,n,'立夏') colorred;drawtext(jj10,n,'小满') colorred;
drawtext(jj11,n,'芒种') colorred;drawtext(jj12,n,'夏至') colorred;
drawtext(jj13,n,'小暑') coloryellow;drawtext(jj14,n,'大暑') coloryellow;
drawtext(jj15,n,'立秋') colorbbbbbb;drawtext(jj16,n,'处暑') colorbbbbbb;
drawtext(jj17,n,'白露') colorbbbbbb;drawtext(jj18,n,'秋分') colorbbbbbb;
drawtext(jj19,n,'寒露') coloryellow;drawtext(jj20,n,'霜降') coloryellow;
drawtext(jj21,n,'立冬') colorcyan;drawtext(jj22,n,'小雪') colorcyan;
drawtext(jj23,n,'大雪') colorcyan;drawtext(jj24,n,'冬至') colorcyan;
{历法}
drawtext(lday=1,0,'新') color808040;
drawtext(lday=8,0,'上') color808040;
drawtext(lday=15,0,'满') color808040;
drawtext(lday=23,0,'下') color808040;
refline:0,1,2,4;
[ Last edited by 股上峰 on 2005-2-17 at 11:15 ] |
|
|