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

恒益

原公式红色这句中538和537改成118和117.
% A2 k: m/ n7 m" n! t5 G# n8 i1 @# g' J
大智慧:
4 n- [3 x' W$ I0 h) B公式名：六甲
0 c6 X# m8 K2 C; x! \: fa1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
+ D' \$ J+ E  c3 ~  i6 dDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
. O  }! N$ a! d' W6 w9 YDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
2 N+ R! [  b. TDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
( I' L- s$ n9 S2 R) ?2 }
: }- V3 e4 m2 k$ Z- M* u  P3 dDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
# t* j" [5 _! X0 a+ ?. n# r  iDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
7 X/ m4 |0 C6 T4 f* l) }0 BDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
0 s* b2 S, t) Y1 F! L! |! QDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
6 j& v$ i& X+ }' v+ {DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
/ k* z: \$ J; V) o公式名：六甲
A1:=DATETODAY(DATE);
A60:=MOD(A1,60);
4 ^% w, A& H! L3 q5 b& Q8 cA420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
, X5 p% F6 }8 D6 m& o- ?, F! yDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
% f# N- E7 I5 ]1 `1 t) KDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
0 W; Z5 J& h* O0 e0 E7 kDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
4 Q4 X. Z+ E/ w! ~DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
# v* c0 l! ~) [3 gDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
* e0 P0 [9 j8 QDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
( q2 V' Z* e- z$ z& {DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
5 y: a' u& o; Z( M" t. ^% _) NDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
' {9 t0 T- O/ H: yDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝