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

恒益

原公式红色这句中538和537改成118和117.
3 v. m0 e+ [4 m3 K
+ `, `# M# N3 J* o% j. n+ C1 z大智慧:
! r0 e' {! Y+ D5 K; b9 b5 v* E公式名：六甲
9 O4 p  i) [; \5 w4 N) |. W% ]a1:=DATETOD1970( 901218);
6 M0 P5 k1 _) @a2:=DAYS1970-a1;
a60:=MOD( a2,60);
# F& ^7 d; z7 e0 w% O; Oa420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
  _2 [; A; e' W: z( H0 [3 ]DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
6 p# }9 D7 R" T0 wDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
8 j% l; Q' [0 ?$ ^. M, HDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
! o* t7 O; q" k8 N( I6 N; N3 Z' kDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
) Y- e* V3 n* n' K
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
1 T. }- ]3 s' r2 n* q9 B! V6 cDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
/ {% U) _% }0 f" z2 MDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
; W/ `- u" Z1 {7 Y% g9 Q) k" ?DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
3 j& ?6 y: N; y0 [  B, V8 dDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
% o/ P) _0 W. QDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
- z9 j5 |9 A+ W- e! F1 k& s; ADRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
- e6 G) U& e8 K% z. Y, dDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
0 l8 [! h$ c1 K% B公式名：六甲
/ ]- b2 \; H' j+ B$ Z* J' YA1:=DATETODAY(DATE);
" z9 P. G$ F- c) ^. hA60:=MOD(A1,60);
1 {; I- @' W2 u. c& h  b  ]/ VA420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
% r' x3 ]5 p8 ^  Q5 BDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
& F- q$ z) d! V9 ADRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
) L! x' T* O; `DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
  ?" g/ p0 X8 A2 E, h& dDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

* B1 Y1 T- J6 ?* mDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
- ]0 Z+ h* V7 u+ q; O( `9 _DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
0 i7 L$ k7 N6 Y0 Z; {/ m6 {DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
- e9 d" Z9 I2 J0 H0 A- {DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

天蓝蓝

恒益

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