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

恒益

原公式红色这句中538和537改成118和117.
* V) W& Y9 z# Q& j+ D* s
大智慧:
1 v8 D0 |8 M9 o7 _) i公式名：六甲
a1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
8 g, ?7 P7 {4 H: {: X4 p$ e) Q$ aa60:=MOD( a2,60);
# I# Q3 D8 M& J5 H% G+ Ua420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
( V4 o4 C, t8 lDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
  ?# ?/ D$ U* T$ [) GDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
- o2 V0 |- r$ _4 D0 |- y6 jDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;

: m3 Y: j6 Y# l! B6 NDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
! K" ^: Y/ n* {8 sDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
* E' \" w4 L- |% sDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
9 S* Z; c7 n2 d7 |# }2 ]DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
) l- h$ M2 e. oDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
5 ~4 \4 w  j4 d( [$ ]! \DRAWTEXT( 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;
通达信：
- [3 c$ h3 g, t& `公式名：六甲
3 ]8 a2 w. L1 m& Y# p: n* t6 tA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
2 ^0 P1 C/ n! O5 _: e* b5 R8 g* U, }A420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
$ o; w  C6 A& W2 qDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;

DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
4 A/ \: W1 `: {: _DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
! ?, k, J+ ?# c4 Z" I- PDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
0 ~1 G8 o/ s* j1 S+ S3 @9 v, hDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
9 B+ p7 d$ k/ f3 PDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
2 ]' W+ C+ B# _+ o! j/ s- iDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
+ r6 `9 \* w1 A- O' R, aDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
6 u9 ^; `+ _+ DDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
& B0 ?% r0 @3 ?2 m2 u# WDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝