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

恒益

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

) K3 q$ g. Z* e' Y( Z5 E" u5 P6 U7 H* c大智慧:
3 p/ S+ {2 Y& h. r/ V3 I公式名：六甲
a1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
" V7 {2 d( I9 o) Q2 i6 x# qa60:=MOD( a2,60);
a420:=MOD(a2 , 420);
+ F( H, f& q# r! E$ t8 wDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
& w& P" K5 n% {1 ^5 C8 m+ E# vDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
* {' b( V* q: W1 Y: YDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
+ o/ M9 k: B' u2 B4 tDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
) b2 o# t) t/ xDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
" r3 U$ P1 n2 ]9 F6 n6 ?DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
+ J0 ?  f: L4 j6 [; LDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
% Y7 N8 Q1 y3 _3 o/ qDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
- D0 ~; c  J* H# eDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
+ E% }0 g5 a5 Z5 [DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
7 b( E2 I! q& NDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
公式名：六甲
8 P+ O4 B2 _3 w: QA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
9 H0 `! j! M- `4 q' _* U3 ZDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
% q+ W. T( G+ ^: _DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

1 C6 f5 p' \- {8 aDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
- Z8 \* O9 O1 b, F( \/ sDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
+ P7 F% u. h+ \( _1 t" w( a$ dDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
9 X0 y% b4 Y! e& |: XDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
% x* U( S% E: d( Q  F" c9 s$ a/ YDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝