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

恒益

原公式红色这句中538和537改成118和117.
1 z/ i9 W5 L2 s& R- c& U5 p* G
4 D8 w/ K. X( N/ R( Y# L' t大智慧:
! J5 s5 d; _, F8 T9 _$ ~公式名：六甲
a1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
a60:=MOD( a2,60);
- Q9 d6 w: o* j' Ha420:=MOD(a2 , 420);
/ f* U/ ~7 ^: CDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
* a# z+ Z: d: pDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
" D6 s+ [1 Z# w, }DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
: H, u6 U+ N9 s* t4 Z( FDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
( k$ F  O* ^* b' SDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
. `% J1 G( @  E+ KDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
) `2 V  `" R2 c: {% l
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
/ Y7 }; N/ w& [# l6 f6 M/ B2 P& CDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
' j  O8 T& G2 ODRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
+ z5 s! F2 f0 x! {& M+ U. ?DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
; Q) d; K8 @2 }* Z' s% \DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
% j' w8 P4 H' s9 L3 w1 M' s, M# oDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
* z2 Y. f3 p; u) r  O& s2 J' hDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
* W2 l- ]5 D! e% E6 JDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
2 U; J9 h- T2 a/ |5 t$ _1 o% C& b, \" [通达信：
公式名：六甲
A1:=DATETODAY(DATE);
9 {4 ?7 t( j- Y; VA60:=MOD(A1,60);
) H+ ^9 O$ P' HA420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
) Q( B* \! ?9 U7 V. a! Y9 iDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
  y- s, ?/ U. m; f2 h. LDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
0 S& k: E3 k: A$ _; T6 s  m) dDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
: v3 `* P: T' c8 y* uDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
% R1 p) v9 z  b4 xDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
% B5 q( ?' U: L7 m" L) C4 b. q; dDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
. a3 u$ |" {: A6 W8 n3 NDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
# G& v+ S, g2 xDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

天蓝蓝

恒益

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