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

恒益

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

大智慧:
公式名：六甲
a1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
! D; S$ v* N& i2 Aa60:=MOD( a2,60);
1 [. U! Z& I2 r& U7 C# j; Ea420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
4 ^4 k; Y1 i) {2 ?( d4 O: ]0 cDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
, |8 f( g' @5 A+ R9 x2 xDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
5 q# Z/ X( u0 a7 Z4 W! M& [! m& w8 ~DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
; w4 D: n7 q4 u, y- [5 ~DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
9 w" V5 Z+ s/ j' {# }* [  JDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
' G+ t$ P* t; `8 i  ?2 sDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
7 G# L4 ^- ?, ADRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
9 x% j# V9 I0 P" \DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
: Q( E- ~1 f/ Y$ k8 i6 N9 {DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
- G3 t0 I" D$ lDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
+ f* [* S0 \3 R/ p- P" U$ E4 ZDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
  B: o' D, H0 M5 WDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
# K) M* S5 C3 ?. L# Z! g通达信：
& ]; W8 a, v" ^2 W公式名：六甲
9 |- E* z( c& b- w9 e1 UA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
: Z" N3 r' @7 \) N+ ?DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
# c2 s) h+ M8 w9 DDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
) {* F8 I4 p# P7 ]8 wDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
0 @( F6 ~  `0 i& H4 J+ TDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
* O0 M( q5 ?. p  V% N+ o7 I3 MDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
. F- {; P- A7 Z) J8 ^DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
9 T% G0 T, I, y$ U, |* M+ qDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
, |- B8 Z8 C% x& ODRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
1 `) B8 f. h* F- j& CDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
; p- d/ j. m* `2 n8 wDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
& _8 S, n* Z/ G' TDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝