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

恒益

原公式红色这句中538和537改成118和117.
8 j: n% `" c+ {
) O; Q0 _) y0 h' u3 l3 u' g; a大智慧:
公式名：六甲
4 P; Z- A* B  {; o3 x4 x# aa1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
' @5 @# a- M! L% Ya60:=MOD( a2,60);
, e- _  R/ i4 b9 x% C0 ra420:=MOD(a2 , 420);
# K! @8 W. w( Q) a  ~* _* `4 VDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
' Z! f) [; D+ W3 |) ]* o# ^DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
; i$ ^% b3 |4 p5 }/ z9 w. M+ ODRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
+ n7 Q9 ^( E* t1 ?, l* }/ z2 sDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

' ~6 r6 D1 }- aDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
6 @5 F- r9 e7 A, D' HDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
; M/ b# k* o9 s$ A" fDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
  ?/ C3 q. V; y% eDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
6 Q, g4 D* R- A- ]1 pDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
1 O3 _/ ^5 ?- b% c4 M公式名：六甲
5 B4 t- b, X8 |* J1 W. RA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
. E5 s* J- |. ?5 I$ q* EA420:=MOD(A1,420);
3 n2 `- R% ^4 ~$ t: J9 ~1 WDRAWTEXT(A60=6,L ,'甲子'),COLORRED;
; U3 [5 ?4 @0 _# K0 c3 ]DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
9 h& n' R3 `& K4 x: HDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
8 l& E" J3 Q2 O. \9 ?: lDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
0 v( p% A$ @  F& IDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

2 M$ _. y! s$ O" SDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
% p  O& t, e% z- W1 p9 j+ DDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
) ?  I- ]: r/ K6 t! {$ XDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
$ y& Y) F5 j# g, U7 vDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
; O' ?3 }4 S1 e( @( DDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
* W; [; y  y  L5 \DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
+ T9 J, @$ {: G$ W" y( xDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝