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

恒益

原公式红色这句中538和537改成118和117.
; f* G4 Q* v  F% ?
大智慧:
' T8 d/ i; ~5 N; G1 J2 a公式名：六甲
/ @; n& g( T5 ], L, [$ M! ua1:=DATETOD1970( 901218);
2 O& I& r; B/ z$ |a2:=DAYS1970-a1;
a60:=MOD( a2,60);
a420:=MOD(a2 , 420);
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
9 b# s6 g4 Z3 ~1 k. Y" hDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
* w' }7 Q: x$ c- d- m
8 B. q5 T# L; V2 VDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
! i% ~0 A: {, ]% J6 ?: MDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
1 x3 C0 Y' l. N- r5 m; x: j, s0 y# xDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
. }* H4 a9 W$ o' B  W" D" cDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
6 Z! V# `  F/ w+ PDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
* ?. V& l% Z- _' `DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
- @; o# s3 S3 X' ^) i! cDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
* Y6 i0 {# P  \& M. N' c1 kDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
1 w9 o$ `$ g* f  ZDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
3 `; V' Q' P- W, C$ E( Q通达信：
6 r  W% L: _! ^; ~+ v4 j3 ^公式名：六甲
5 }+ F" w5 M+ J/ R% z' m  D( }7 FA1:=DATETODAY(DATE);
A60:=MOD(A1,60);
7 U3 x# Z  w4 b: c( wA420:=MOD(A1,420);
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
8 [/ i" H+ f2 a/ x8 xDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
% @+ q" v1 p4 g9 c9 ~: iDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
; T+ ~! A" h6 A1 K' BDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
4 S0 l+ Z2 J, L5 Q/ ^0 O
7 G* n+ q! m& P! I& C# U. F; F+ g8 cDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
% [  u" p9 r' ^DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
, h- }# \- O$ q4 S$ k' n! nDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
1 W4 O& c- N7 rDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
4 f! x# m) O  A, f7 i% B$ H1 yDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
4 m2 a6 j: X- _9 \3 k- X5 dDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;

恒益

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

天蓝蓝