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

恒益

原公式红色这句中538和537改成118和117.
$ V, `( i& ~0 J7 N7 y
/ v' r* p5 f, M9 @' J* n' e4 n% o大智慧:
公式名：六甲
7 K3 C& W/ x9 ]' k; a3 P9 Fa1:=DATETOD1970( 901218);
( x! m+ Z- r; ia2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
' B% g8 e/ t' ?5 D: R8 t$ p6 VDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
5 g/ D# p9 C& JDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
/ e" S5 s* J! d$ k& G8 Y, z, oDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
) o6 h# Y, A7 z2 P8 {6 d7 \2 U; dDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
2 Y: W" P# }( f' ]
- [3 c. I# u' d7 S& c! p: z; w8 T) sDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
& m1 H8 V& p. [; s' P+ E2 `7 e5 BDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
1 |3 [; z% m+ yDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
. R; I6 x. A6 `) R; Y* {$ `8 pDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
DRAWTEXT( 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;
" c1 p) s& j6 W+ ?- C. `8 [4 m通达信：
( Q9 ^- q+ ?  @! b, K7 T1 C公式名：六甲
A1:=DATETODAY(DATE);
. y! h' j+ f$ i: K. d- g- ]A60:=MOD(A1,60);
A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
7 q, x' }( V- K* U3 w4 s2 i! `DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
; P" g- A( m0 F& F' p! D0 zDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
$ l- b  M$ B, o6 Q! ?- A1 z9 GDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
+ ^' O4 a* L3 M2 z6 r; Z) c0 kDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
+ h/ X6 d9 @& ~/ j! R9 c: t: n' QDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
6 Y2 O; D4 l( t& H( P6 J, ?DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
# [" K0 \* X! ]' KDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
' ]! k( H5 |. b8 nDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
4 y) U! l3 Q0 \$ v, t3 P( |DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝