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

恒益

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

! i6 {0 u0 F& I% A大智慧:
公式名：六甲
a1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
8 L7 G5 V4 C+ _# {a60:=MOD( a2,60);
8 T6 [5 V$ C1 P0 L) R( la420:=MOD(a2 , 420);
: {( F2 V0 P$ q) n2 m; A, c* mDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
/ D0 a( C( r% {8 H6 m& w: {DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
3 j" q: Q3 ], dDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
6 n! Q8 `% F8 QDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
( S. Y0 b7 E) S' aDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
* e5 s6 R" {. [- M3 O0 R
3 t8 F; f2 k0 _, D! _DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
7 e6 K/ u! y: p/ _- O/ d7 {5 ~DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
. w6 A2 K. }: R9 k5 J, {( eDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
5 z: |, i$ G# m5 @5 x: SDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
' u9 t) X( P% z% J% d4 W通达信：
7 D6 z2 f( O; y" F3 U, d公式名：六甲
# i3 |' C, m+ G: i) `A1:=DATETODAY(DATE);
; ]/ K- S! z. n2 C5 L. Y$ U; B% t6 S0 aA60:=MOD(A1,60);
A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
+ x+ j3 l" E# z; x/ _3 nDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
5 ^) ]) p, \3 b+ Y. bDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
6 W  O+ b" G% H8 F$ RDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
( f8 c. b- ~. a5 i8 a
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
+ [- z! j5 h) nDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
8 M0 G5 W! F2 VDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
+ Z8 @2 H' m; YDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
1 `( H8 W1 b) nDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
+ Z9 ^% F4 e0 V0 b- qDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
( V' ^! v" C! ^1 }DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝