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

恒益

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

大智慧:
公式名：六甲
a1:=DATETOD1970( 901218);
* Z1 {& a! a3 `a2:=DAYS1970-a1;
a60:=MOD( a2,60);
: G; _; Y; `, ]5 y: [3 l" Oa420:=MOD(a2 , 420);
. J2 V! m" p$ p0 T1 a; E& Y( @! X5 f8 `DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
' ^3 b$ Z( H4 t& c0 @DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
( F) ]# H3 X. ]) }) NDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
; F& J& H' r# [- BDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

/ U* F+ l1 F( _DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
2 w  ]; |  G( L9 ODRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
8 ?# a; O+ f: U* N9 ^+ BDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
8 P0 `" K5 G4 }DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
, V: t7 w. t/ F0 Y) s4 Z& C8 A6 SDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
: n! C9 ~' R5 aDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
! a: x( a# Y5 s; f0 Z通达信：
7 V9 l' F$ M% t- b7 N4 u- J3 R公式名：六甲
A1:=DATETODAY(DATE);
A60:=MOD(A1,60);
+ U9 I* e7 [  M7 {4 @- d5 p. ^0 cA420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
2 h7 y5 v; q, B" M5 EDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
. x+ _+ L0 |. S7 N8 j% v6 oDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
3 R) D2 U8 p8 c2 m0 lDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
( a% \3 [, b5 `; P5 I9 UDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
) d0 ^8 i" k2 d/ s5 x
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
+ ^6 Q' \0 n/ N+ IDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
0 H5 Q0 S1 J4 r  j; eDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
/ W) u* d" c  sDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝