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

恒益

原公式红色这句中538和537改成118和117.
3 ^( h, O: U1 J, G# E3 ~0 H  H* J- T
8 G7 @' W# E6 @1 D- X4 _2 p大智慧:
5 m0 v( y# j. R7 r: `2 r公式名：六甲
- m; N) p7 U/ ^* b1 Pa1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
+ Y4 G, L  [& ODRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
/ g- d& e4 S& n2 v1 j$ H! w9 dDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
/ O& `: B5 a1 G" T- T& W, _. x3 `DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
9 M& z3 Z; T5 z4 s, Q1 g
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
# _6 L# s' M% f! y* p% rDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
. |0 j( W' w2 H  hDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
5 g( b/ R7 m% G% X6 T& ZDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
, u: k: B2 q# _/ o! JDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
公式名：六甲
) w# p( l! ^# E4 p3 vA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
/ m& W  {* ^3 D* I) D' j) u% b* kA420:=MOD(A1,420);
! S4 ?6 X5 j) n$ ?# n/ Q  dDRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
! [4 w; L: P$ O2 {) W0 DDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
6 Z: ?( i) U5 {/ p( n9 ?DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
& J5 Z' o1 O; e* R  i5 K4 YDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
' f. D& k! k$ \& Q1 C% d, BDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
- N  ^, ~* J- [) o. J% k2 VDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
* v9 k' i: _: ZDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
8 L% _& O! d+ w4 y, IDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
9 E& {# N+ k: m/ }! ]6 z7 }DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
" K/ G; w% ^+ |( g; T2 n) pDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

天蓝蓝

恒益

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