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

恒益

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

1 r" [8 \0 b) H* m+ O8 _% c, {大智慧:
公式名：六甲
* Q+ D  u( g% o2 e, Xa1:=DATETOD1970( 901218);
- ]/ {. G  C: d; b, O) e  Ma2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
2 u, u, s9 l3 e' Q& S  s. T* _DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
4 Q: `, F; ]0 K, h% q9 P! C+ Z; xDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
& T# Y! m& ]+ \6 o& T& D! vDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
5 V; e. h" C8 o& ]4 B; y- JDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
6 v6 d0 m$ o! U9 l( x: Y5 Z% Z% d0 z* f" `DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
7 B2 x0 f6 d% O9 ~0 F% K. ?/ ?4 lDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
, C( Y, P% a" v$ a; @6 G& v; X- QDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
6 y9 m  t+ ^, x) n* s" e+ WDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
9 D; k& t0 s' B9 b$ tDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
: ~- [* d* b' o0 xDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
5 n4 W) b7 m) E0 b- n通达信：
公式名：六甲
6 \' [8 @9 p  Y) [' R, v- F5 kA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
; u- t1 |3 k: k# a' M0 _* o/ ?/ WA420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
0 e" k+ l! n- |( Q' e5 j) K  P: ?3 fDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
# g  q4 ?7 }: c* u$ _DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
; q3 l" T& U- s. y: w1 d! s, U8 NDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
! p9 Q5 d5 N# M$ B8 cDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
! x1 u, i% G& Z
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
2 }; X$ \, x/ o" u' Y8 c7 rDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
0 O, s* O  @9 z9 u" P0 cDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
. M& F( h2 B1 w# A8 P. Y6 g& Y# TDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
! n8 p" A$ O2 K. p- e3 i  @! k4 KDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
0 S9 |: }! ?1 A- RDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
( _3 D3 _' h3 R: P$ qDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝