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

恒益

原公式红色这句中538和537改成118和117.
* J5 Y& d& a7 O& r; W) e) }
大智慧:
公式名：六甲
a1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
a60:=MOD( a2,60);
; m2 w; m8 S4 fa420:=MOD(a2 , 420);
* `1 j2 o! T  H( m! `7 D, ?9 mDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
. }7 j" m9 f8 G9 {$ C3 T" z, u+ |DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

6 N. J4 a2 X9 p0 x1 Y* ~  X" QDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
7 ^  E" I2 q, f: `1 jDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
; y% k" Z: _- s0 D# l) NDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
/ I" d8 _' O+ W3 u% L% l) RDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
7 i- i% c7 h* W) b" zDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
/ x+ E4 [( L7 [9 d/ [6 |* WDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
公式名：六甲
9 j/ W) j% X  |# w: g0 V5 h6 PA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
, X+ G: P1 V$ X( N9 G8 y& g! DDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
1 A) g) m; C0 N- Q8 b; pDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
0 Z+ U; Z* f7 j) `6 d0 V0 N/ YDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
' T  p- m# y6 u1 l9 h; ]DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
* i  X/ X9 a8 K1 W9 aDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
- F( n2 u( e& m6 LDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
+ \( E/ ^+ }; h% p$ |- ]4 L: r2 c' c7 C! bDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
/ y2 x2 j# ~& @" g/ C$ Z/ BDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝