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

恒益

原公式红色这句中538和537改成118和117.
0 m* N7 U. [5 ]" B% i
大智慧:
公式名：六甲
a1:=DATETOD1970( 901218);
9 N( K+ o0 l' f" y) sa2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
9 C8 u# `, Z; J2 c0 ^$ gDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
: b' h* e% }9 p) {5 T- ^/ H- kDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
8 Q+ O# _6 \( Y. C) X# Y1 gDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
. b9 q7 F/ e. U2 s1 B: k0 b4 {" M$ mDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
! t+ W2 o! G6 J) Y, r! GDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
& R* W7 D6 p- u1 @- EDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
6 O  p. D; A0 X3 [3 j9 ^% _& g2 H& CDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
  k* L% m& }* W1 y2 y& Y3 FDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
+ R' g7 K. D  z6 S0 j) ^  ODRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
0 e; B: \+ X( v6 D8 v公式名：六甲
A1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
/ |' v: p+ h' x2 l& jDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
3 [1 [! r+ K3 N" s( TDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
2 ]4 r: |% v$ f' }$ }* SDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
% Z$ D7 }% s- t; J5 j4 I
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
/ j$ T0 s) w4 H: D6 w0 ]DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
  I0 \  R6 z6 w/ QDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
8 q5 L4 m" I6 i$ q9 H3 DDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝