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

恒益

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

大智慧:
0 s6 V1 x0 D5 x2 y8 Z2 ~) G+ d公式名：六甲
a1:=DATETOD1970( 901218);
a2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
* I) A% l" ?6 Y( w7 lDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
" W6 S( C! n0 {' G! H/ |' N8 VDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
- x. Q  e4 W% q0 \
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
/ K0 h  n/ O* a" W( ~5 U& T% YDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
. q! A1 \3 T7 i( z" I0 mDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
7 L# d% {! A" f1 V* FDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
5 U7 U+ M: X! d* {. {+ o# B" H! LDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
9 s( s- p( M4 N2 t/ {) oDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
通达信：
6 M. |2 p. _  b9 e) S公式名：六甲
A1:=DATETODAY(DATE);
A60:=MOD(A1,60);
4 l  F  w2 a' Z- I% F8 m' V: qA420:=MOD(A1,420);
6 i4 Z# a2 H" x7 _( J# v( c6 R, qDRAWTEXT(A60=6,L ,'甲子'),COLORRED;
. w+ ~1 X$ R, k0 W4 a: h2 L3 wDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
/ P8 T3 A  }3 z- g, v5 \( ^. BDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
- ^$ {2 O9 c+ Z9 b8 {0 u0 e7 i1 QDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
* d( O8 o' H/ F4 n1 r/ R9 Z9 O
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
) c' w9 R9 O' P/ i3 _1 u, ~DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
( `* k; p9 d5 g  |8 p7 lDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
) }  @/ J4 C3 c( }: M0 E( qDRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
2 r! k+ h- h+ m9 y2 g4 lDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
* X$ p1 k4 |3 R4 _7 K7 _+ |3 M$ }DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
* q- [  F2 {9 B4 U9 M7 c% Y* ]DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
+ ~! u  c, Y9 N( R+ j6 mDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝