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

恒益

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

大智慧:
$ J3 n  n/ q% z+ Y公式名：六甲
a1:=DATETOD1970( 901218);
. o* \& e# ~' y' u4 j" i( _  `a2:=DAYS1970-a1;
0 u! ~( U" M+ _" f0 V; Ua60:=MOD( a2,60);
6 _3 a+ K$ w" S9 W; ^a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
0 O7 m1 ]. Y' x  H7 t5 k+ f2 QDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
" g* x3 `3 R$ l/ g& J- l9 z1 b+ e, S7 k( a
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
8 y: H/ x3 X9 j  E% f2 W0 f6 PDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
: z0 X5 o5 U$ wDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
8 @% O" U* q7 w! p# VDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
! D7 p+ f( x; O# `. JDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
6 Y' I! u( o2 z/ F9 \DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
/ H; {+ W; c  s9 L5 DDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
+ B& i4 j# w+ L! d7 L: g5 qDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
8 B0 }% A% d% X8 Y& E- n0 @DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
公式名：六甲
A1:=DATETODAY(DATE);
# x" \" a: t6 v1 ^) RA60:=MOD(A1,60);
" p: u4 U0 G4 g( Y( iA420:=MOD(A1,420);
# d' z/ p. b( q4 v  eDRAWTEXT(A60=6,L ,'甲子'),COLORRED;
8 K; T7 M; K* Y9 S$ p+ PDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
' \$ A9 r2 P+ B2 e$ O7 tDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
0 z, G" s4 K! [' o, f! i- cDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
% h7 A+ _$ t4 G4 h9 W9 I4 ^! cDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
; e2 R# w- O$ i( v7 p, V3 @4 RDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

& S- O& c3 M5 SDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
8 o/ A) ~2 @6 ?' L% T% b$ C6 XDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
* F, Q% \* `: L8 C* y, MDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
3 c, [% |; [% I6 V7 n" i: k1 XDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
9 M. x; e% O6 C  dDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
, ]: I8 T9 y3 ?7 W8 U. z. A6 nDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
7 r7 A$ x7 [& d. x- F& D( XDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝