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

恒益

原公式红色这句中538和537改成118和117.
) l* B! q' J7 m6 M
; l3 o: f+ q' h- U& k7 n$ m' G大智慧:
公式名：六甲
& G  @& Z( h4 Xa1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
0 t% W5 R& Z; L) Z# za60:=MOD( a2,60);
a420:=MOD(a2 , 420);
( v( a4 b0 _: uDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
  S% _8 a3 y/ C& r. NDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
! m2 y8 q- c% s3 W6 ]2 DDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
/ T* u6 Q& |: q. Y+ g  oDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
# L, F6 @. o# b1 P5 ^* ?DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
- u# D( U$ ^- ^% N$ i1 o! pDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
4 E( ^5 @; S0 f/ W% NDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
" _: E, e) r4 l( g6 G* kDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
# Y! S; V7 B5 xDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
, |" d; v& \" T2 S通达信：
" m/ I$ Z2 m% u, B, s; `4 M4 K7 {公式名：六甲
$ L# F" V. R5 B7 Q" E5 J) {/ `' \9 y' rA1:=DATETODAY(DATE);
! t# G2 o5 t3 R3 `1 Q( d: eA60:=MOD(A1,60);
A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
% w" P4 M' c7 ]  ^1 h4 Z/ o% O1 vDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
. {! k' Z! J) mDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
# p% a- P% _" V. r8 ~  l! qDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
0 s: s8 c8 }1 A! t' L5 c* n: M
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
9 E' E! h2 {# @* S$ h1 DDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
3 _3 {! I! E3 Y+ x, VDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
8 c  q# ~% P; ^* Z% L2 D. XDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
8 a2 ]& e  |( v. q; b/ E- m: bDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝