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

恒益

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

大智慧:
$ [7 e5 _) {: T0 `2 ?公式名：六甲
0 k; N$ h  m+ A5 k( G! l- pa1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
' E1 q9 n; s9 Z1 B5 n: cDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
: r( D, I1 I2 r2 d8 t/ UDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
0 k0 P6 `* h9 o; SDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
- ^$ r7 k% @$ t& e/ @. W% h, jDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
' @% ~1 f1 ^! O  w3 {DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
( f( \# `# `2 T6 VDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
* y; h5 C# p: m' w, eDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
4 G7 {& x) G. O0 F通达信：
公式名：六甲
" ~8 I+ A& ]" V' J. U; x8 VA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
! B5 q9 ?2 H1 s. E, h! NA420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
: A, u9 C( g) f; X8 u' G" J7 d6 qDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
! O, k7 H/ B* ~8 k3 ADRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
; a9 z/ P$ Q2 g, r/ [4 l: m' E# ]9 VDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
% K5 V, {; X, O6 L0 z/ ^DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
6 P, ~2 {4 G/ R6 r) t5 U
4 j) P' h% r1 @; Z: Z' FDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
1 m. v; w/ l7 q4 U* h9 ?* F+ b7 sDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
$ a7 S3 |; m  @$ dDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
/ e0 O1 N5 f) w9 q8 w+ W3 GDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
- _$ n8 \8 y3 P7 KDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
" |! l, c7 h4 C- D( B6 N9 }DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
" P- d0 [: S! t7 W% z+ @' p' PDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
0 N& n: X8 O! N  T# i$ F2 TDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
# u! e# u. |# t7 x! gDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
1 ^* f4 o0 G# o; c% ^DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝