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

恒益

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

+ i9 a/ f  S2 n8 K) f大智慧:
公式名：六甲
a1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
( V# y7 J5 _+ A1 F6 m: Qa60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
2 b3 X0 U" l0 a, XDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
/ @. w5 O) p, w9 ]0 JDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
; T5 H, l' l1 }: c% M3 HDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
6 I- Y( p, v3 eDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
2 F- m7 R# J. t' Z/ vDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
3 `, R/ K9 K7 T
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
, g* p5 m, N5 L  v* B! z: j  r$ nDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( 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;
. U% m% D) A, C2 E' T+ R5 `DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
3 J2 ?" s9 V! Q% L通达信：
$ p5 W0 P2 i0 D5 k; ^3 b3 @2 J公式名：六甲
8 h- v3 B/ a( ?; ?! x$ M6 K  GA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
2 k( @% ?; g, C- wA420:=MOD(A1,420);
0 I! g1 L, @# f: z7 G; _DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
3 c+ i& k, W; ^! n' p" @DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
6 X0 m' i- ~8 ?; q: BDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
8 W2 @9 b9 h$ j% p1 ?5 mDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
# `5 ^* @0 m. V/ K- u/ w) u) RDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

/ w" m! _8 u7 V6 i  N% z; DDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
  @$ p8 B+ X5 p9 ?% m4 ?6 SDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
$ C) i0 O3 U4 Y3 ]+ p" K3 \* a& XDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
, o" y% v9 U  L* bDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
8 D7 F2 _# m. u: [/ E8 z: kDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
3 e9 X( L; g; `DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
  j5 I3 H# _8 q: f% \$ aDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝