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

恒益

原公式红色这句中538和537改成118和117.
- w, X0 Y7 t. |+ ?
/ I9 z) j$ W, S' K- s大智慧:
2 d" W0 V$ l+ z  b+ U/ K公式名：六甲
a1:=DATETOD1970( 901218);
" x1 i0 [3 H4 d7 G3 j3 K6 Fa2:=DAYS1970-a1;
a60:=MOD( a2,60);
" ^3 D/ F! k) B2 K1 ea420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
+ L: I" b: ^/ f% a1 g. ZDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
# h' C7 O) ]& Y5 T6 K  u. a1 g( \DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
8 F$ h# Z$ R: U! N$ e% ^# _DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

' [) e6 Q6 o/ dDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
* t  T. i. P! E$ RDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
" R4 b& T( E0 q9 oDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
+ ?; Q! k1 N( W) GDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
9 b# E8 Q0 F! W$ p- b. NDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
2 u, j6 O1 ?- _" W, yDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
0 [# |! W/ D5 ?2 j5 L( O  u, ZDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
$ d& h; ~# R- [! a8 C  c0 Y" JDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
8 v! l4 C; V4 l# DDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
+ R  i' o& g- F. iDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
! E# C& X- r1 M0 R. ODRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
0 O, o; j: ^. V. ~9 C" u4 p+ NDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
3 r0 Q, Q% r1 w8 H! y1 o: @公式名：六甲
7 Y' o9 W' N0 C1 h& \A1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
7 F2 l9 _0 {* f; J& F7 K6 R: dDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
. z" s$ T  P* Y: u; O: [! M# }DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
' I" d  Q; U- J+ \4 FDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
: f" z! p$ p+ ]6 g- T8 K8 s0 m- Z& JDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
4 a) Y, g! b1 k* d8 \DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
7 R) g( Z7 h0 ^& O8 DDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝