可在大智慧和通达信显示甲子的公式发现一处错误，现改正

恒益

原公式红色这句中538和537改成118和117.
+ @' ^5 @( A( j( y2 r
大智慧:
1 {/ ]$ K! {- {1 h公式名：六甲
. g1 [0 I  C0 T9 Q2 \% ?  \* ia1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
( ]/ h- C7 F/ [. K# XDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
7 U! _5 H9 `* m5 D- o
# x# i# R/ {) yDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
+ s5 t' [+ ?% O2 L; rDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
, Y  j; V! \! C9 j8 XDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
/ o  Z4 g% e: w% w8 nDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
6 z1 j- B" E6 @0 N5 I0 }+ r8 r% l5 mDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
3 f; ?4 f7 Q2 \6 B7 X4 c! uDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
公式名：六甲
* C9 H& u4 r; A3 JA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
5 F- v( O! e3 n" W% ^DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
8 s& @& o% k' P# BDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
, p, h! _: k' L
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
+ Z3 f# q4 t+ U8 P1 e% X  JDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
9 N  A  ^+ U: m" F4 DDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
( Z& p. J$ O7 }: S* [; K/ LDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
# U6 M& V" |) w7 I% v% jDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
) q$ w9 O) x4 n& C: eDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
- {+ |% t% @" j+ g; rDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

天蓝蓝

恒益

A2除420的余数不可能大于420。