文华软件60甲子日指标公式,给做期货的朋友参考!

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, '  亥');