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

恒益

原公式红色这句中538和537改成118和117.
- T' A/ I% p+ u2 }
大智慧:
$ e6 C" z+ ?9 F( R1 }' Q公式名：六甲
a1:=DATETOD1970( 901218);
; ?& c" a, d: K5 o5 r: oa2:=DAYS1970-a1;
3 W# K0 u8 p! ~+ w  ]9 n* Sa60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
1 _. V5 N5 d6 c+ u. ZDRAWTEXT( 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;

1 O/ [6 O# t" g6 K/ |: SDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
$ g2 U8 M2 S$ d3 s: Z; r, r& ]DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
# l) N# Z" W0 j9 wDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
/ h* w2 J4 H- l6 S! E5 a! SDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
) ]+ p; s8 L- R3 d+ i- b* FDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
- w) n4 d9 O+ L% ?- A2 k公式名：六甲
A1:=DATETODAY(DATE);
A60:=MOD(A1,60);
% z' [- n, o( }7 N% r( DA420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
' X  t7 b2 y, s9 VDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
7 ?; `; g- T( {7 cDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
. G8 D: Y" w! n# E- Z0 @# kDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
- t6 _5 ?+ F2 R2 y' P
4 |7 ?- ?1 N5 \: w! mDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
' r; \* F: u& ~$ Q0 c- i7 x  a. |DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
% m- X/ l' \) J) cDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
4 X( v4 Q& r/ }( v' dDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
" J5 P" w1 \7 m$ J- j5 u7 T  `. {& ?DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝