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

恒益

原公式红色这句中538和537改成118和117.
; x5 ~9 t$ a9 s  K3 b" l& X2 P# y+ Y
大智慧:
; |5 f- K8 N; k* R+ P+ E. k公式名：六甲
+ m, k, \: m% i, U; aa1:=DATETOD1970( 901218);
5 K. D% n. ]' \7 ]. ya2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
1 @! d% ]. \  \6 _5 HDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
! Q0 F  q& X8 F/ D: SDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
1 Q2 ~% ~" p! o, L  P5 v4 ?% T# MDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
& P- ~( w. J! ]0 P$ X1 m/ L3 pDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
' _" @& N5 U+ e# t- |9 X1 F4 H
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
0 M+ p) s/ s8 Z- {- x/ }2 BDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
. w- d5 l, U/ w- j; DDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
# y( M$ q* Z, e* lDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
; T* F8 |( T; rDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
公式名：六甲
7 j6 |6 V8 d9 `( SA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
A420:=MOD(A1,420);
/ D  T! ]# M' M. f, iDRAWTEXT(A60=6,L ,'甲子'),COLORRED;
8 R3 l, t4 u2 r1 y! K% t+ R- e: UDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

" l( g! j0 K) b7 o7 yDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
7 W. k% m1 r# \4 D" b- uDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
  l6 V) m, C$ X! WDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
( A" {2 d( I$ k4 @DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
% d3 Y1 F, D& e% o  W1 l* j& T( T2 pDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝