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

恒益

原公式红色这句中538和537改成118和117.
# a2 T4 Y3 v8 A3 e( E
大智慧:
公式名：六甲
a1:=DATETOD1970( 901218);
  D- q, j9 l0 {0 S% b7 ?$ u: xa2:=DAYS1970-a1;
0 O( e' b% H7 q8 K5 p7 y/ n/ J: Ha60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
7 v7 ]. R' \$ O, v* B! \+ N3 QDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
) Z; a- c& e9 @  uDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
/ a3 Y0 e" y1 q. L5 F5 G/ aDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
! A% H* E' R; n/ W2 mDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
4 L; Q, y  X0 B* W* z/ o! oDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
% u; Z5 z: \6 @# R4 d7 ~: y; gDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
! f% L5 {; U8 d6 \( t* W: H1 l  zDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
+ e% K/ \) E& m通达信：
" U. e  k1 a2 q/ ]0 O公式名：六甲
A1:=DATETODAY(DATE);
+ m2 I- {" L" R, GA60:=MOD(A1,60);
1 U- `$ Z& h( CA420:=MOD(A1,420);
  G5 ~) X5 B1 `' A' |DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
; Z. \- S7 P* c- ?8 b7 J# U$ U: ]DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
. O2 H$ b- a( |  P* i8 pDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
9 Y8 H- j7 m: R0 [" z7 Z) VDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

3 }4 M, D- |4 JDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
6 G0 E$ b2 o% g( I$ kDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
) E; M3 a, t0 V0 T9 vDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
3 J# _  q  |& y# H' F& lDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
" e4 M9 F+ }# N% S: z2 i) GDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
' l# y4 ?4 D- c, N/ {/ Q1 D0 A% I& L( GDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
4 n" K( _1 X4 p3 L# PDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝