T:=DATETOD1970(DATE );
X:MOD(T+7,10)+1,LINETHICK0;
Y:MOD(T+5,12)+1,LINETHICK0;
天干:=IFS(X=1,'甲',IFS(X=2,'乙',IFS(X=3,'丙',IFS(X=4,'丁',IFS(X=5,'戊',IFS(X=6,'已',IFS(X=7,'庚',IFS(X=8,'辛',IFS(X=9,'壬',IFS(X=10,'癸',''))))))))));
地支:=IFS(Y=1,'子',IFS(Y=2,'丑',IFS(Y=3,'寅',IFS(Y=4,'卯',IFS(Y=5,'辰',IFS(Y=6,'巳',IFS(Y=7,'午',IFS(Y=8,'未',IFS(Y=9,'申',IFS(Y=10,'酉',IFS(Y=11,'戌','亥')))))))))));
DRAWTEXT(x,1,天干);
DRAWTEXT(Y,0.8,地支);
1.5,COLOR000000;0,COLOR000000;
