DRAWKLINE(0.75,COLORRED,1,COLORCYAN,0);
G1:=INTPART(YEAR/100);
G2:=YEAR-G1*100;
G3:=4*G1+INTPART(G1/4)+5*G2+INTPART(G2/4)+INTPART(3*(IF(MONTH=1,21,IF(MONTH=2,23,MONTH))+1)/5)+DAY-3;
G4:=G3-INTPART(G3/10)*10;
KTEXT(G4=0,0,H,1,COLORGREEN,'葵');
KTEXT(G4=1,0,H,1,COLORGREEN,'甲');
KTEXT(G4=2,0,H,1,COLORGREEN,'乙');
KTEXT(G4=3,0,H,1,COLORGREEN,'丙');
KTEXT(G4=4,0,H,1,COLORGREEN,'丁');
KTEXT(G4=5,0,H,1,COLORGREEN,'戊');
KTEXT(G4=6,0,H,1,COLORGREEN,'己');
KTEXT(G4=7,0,H,1,COLORGREEN,'庚');
KTEXT(G4=8,0,H,1,COLORGREEN,'辛');
KTEXT(G4=9,0,H,1,COLORGREEN,'壬');
G6:=8*G1+INTPART(G1/4)+5*G2+INTPART(G2/4)+INTPART(3*(IF(MONTH=1,25,IF(MONTH=2,26,MONTH))+1)/5)+DAY+7+IF((MONTH/2-INTPART(MONTH/2))=0,6,0);
G7:=G6-INTPART(G6/12)*12;
KTEXT(G7=1,0,L,1,COLORGREEN, '子');
KTEXT(G7=2,0,L,1,COLORGREEN, '丑');
KTEXT(G7=3,0,L,1,COLORGREEN, '寅');
KTEXT(G7=4,0,L,1,COLORGREEN, '卯');
KTEXT(G7=5,0,L,1,COLORGREEN, '辰');
KTEXT(G7=6,0,L,1,COLORGREEN, '巳');
KTEXT(G7=7,0,L,1,COLORGREEN, '午');
KTEXT(G7=8,0,L,1,COLORGREEN, '未');
KTEXT(G7=9,0,L,1,COLORGREEN, '申');
KTEXT(G7=10,0,L,1,COLORGREEN, '酉');
KTEXT(G7=11,0,L,1,COLORGREEN, '戍');
KTEXT(G7=0,0,L,1,COLORGREEN, '亥');
|
