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

恒益

原公式红色这句中538和537改成118和117.
) p3 p1 _( j* }6 Y0 ^3 F
大智慧:
% ?# l& n9 F5 ]+ E5 @0 s公式名：六甲
9 a  H' K, c1 L7 }* Da1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
8 ]! s( ^: D, h" O% JDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
; j$ M& J( D% a9 I9 y9 zDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
0 H+ B; E4 k7 [# s: \
( a$ g3 B' E; `! B- V3 M4 mDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
/ F; U6 I% M7 A6 R& j8 ~. aDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
. q; w% F+ x: oDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
  @5 ?! @& p: T: r3 \* a4 NDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
4 a  l/ t- @5 ~' J, h# q' M通达信：
# ], T( I" ]  J' [公式名：六甲
A1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
+ I9 h# _( O0 h0 SDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
% W- m7 G# ?! s9 }DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
. j9 A) m/ Z# d/ [1 b4 D0 wDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
. S1 X- w& o( Q/ j! ?& g* g  P
. \7 x% F9 j( M4 A$ eDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
6 _# A7 o5 P- }" aDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
! a8 i, _5 D# c* w# O4 qDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
  `& m" S6 ~0 @; j% x+ V, a1 v2 mDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
* f3 s; L: A. W, f( l& ^DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
" t' w0 s: t( d0 ?7 y+ R$ Z. xDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝