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

恒益

原公式红色这句中538和537改成118和117.
1 z! a, u$ i+ b: K8 T9 U
大智慧:
4 z1 F; |4 |$ Y  i9 M% K( F/ }4 b公式名：六甲
a1:=DATETOD1970( 901218);
; k; h+ }  }6 ~, Ca2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
$ `; C0 l8 E2 Z- l7 x3 bDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
. n$ |. S$ h' E) z9 n% QDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
* n4 W8 ^/ q4 H! d
9 l( p# Y9 s$ j( h9 J9 XDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
9 N: w2 |; X0 P- `& G3 N1 eDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
0 ~, }/ b2 B* P% Q# {DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
2 ~. V8 P( O( `# i# V! g. K; YDRAWTEXT( 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;
通达信：
公式名：六甲
2 a# n8 X+ }5 q* TA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
, g, F7 M( n5 R" c; vDRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
& f1 ~$ t' J' E2 q: F3 Z
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
, C2 z  I/ V! ], f. z3 [& VDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
  b% n9 W) u2 P. d9 P5 `2 C7 eDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
/ i; c& H! I8 j3 C. C- V# o! z! x6 \9 \DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
. z, D  t. F( u3 ], C& JDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
- Z" [8 ~! C" b2 _6 F' H9 TDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
  U) ?4 B/ K8 ADRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
& j( @. T9 [+ B! LDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
1 ^8 L$ z6 v5 S2 ?9 \: kDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
; U. K% j% Z& b1 H$ T% gDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝