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

恒益

原公式红色这句中538和537改成118和117.

: O2 K& d7 H- h: A大智慧:
) I4 b  C: @3 h& e1 |' t公式名：六甲
# j3 n+ w& s! u  ~' Za1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
- n& U; X. }; Ga60:=MOD( a2,60);
a420:=MOD(a2 , 420);
- f& u: u. e* @/ I8 h8 J6 HDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
  Z  q) ]6 }9 y! L8 v* w2 bDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
9 I3 i, T' R! S6 kDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
  F5 A& j5 r& hDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
- f' ?8 s& ]3 z- K, E, t9 R" M/ `7 c# C
$ Y4 _7 t0 P2 q1 RDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
6 x5 }3 n9 w' ]DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
+ Q# R8 P" q# Z( [7 XDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
+ W8 i( ~7 v) z' GDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
" d! q: H; s- V' M& T# j) [5 N2 _DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
0 b# k" {' ^9 P, M9 v6 A3 lDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
8 T6 J/ ]2 b5 E. G- V% Q9 V1 hDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
! I8 B3 r( k( B3 TDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
: u6 F! v# [$ b0 h4 l+ o/ u  rDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
/ f1 L' m  |4 e8 sDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
公式名：六甲
A1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
7 t) O' ]: |* aDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
4 A  l0 Z- m$ @, VDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
  u7 C4 V, n1 L: [DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
- f( N& k" I8 Z" SDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
5 w' M6 J/ `; D) Q; C3 f
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
+ }0 v0 J7 E2 N/ zDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
' @0 F+ W. X; }8 ?DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
* O' k, O# W! Q: ?4 `1 U0 LDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
1 Y( R: U/ n' iDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
0 o. T2 u1 g4 ?! W) rDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
% o0 \4 u/ A: Z( yDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

天蓝蓝

恒益

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