【阳光飞狐__与财富同行】

标题: 可在大智慧和通达信显示甲子的公式发现一处错误，现改正 [打印本页]
作者: 恒益    时间: 2011-1-15 21:31
标题: 可在大智慧和通达信显示甲子的公式发现一处错误，现改正
原公式红色这句中538和537改成118和117.
: `. h7 M+ _5 S* A. W% b1 V* X: O1 d% z  [! ?6 h; M8 n/ C
大智慧:$ \8 i8 B7 T+ Q* ]. E* ~: {
公式名：六甲
6 N; ~7 `" h6 ^: h1 k% r5 \a1:=DATETOD1970( 901218);0 O/ {+ {% A7 q5 Z0 X) j
a2:=DAYS1970-a1;( [6 z4 }! f! V$ e5 I) d
a60:=MOD( a2,60);
7 C4 n+ h4 }$ f) M& x8 h2 F* D2 Da420:=MOD(a2 , 420);) t& Z. H2 L5 q, _0 q
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;9 D0 W% ], c, a. i
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
$ \2 [4 D& D! J' RDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;: U/ g- y! b+ _6 a+ m) J' u
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;5 E, K5 S' E8 v) `+ {, \
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;% M, ~1 b: [9 r$ g% D( F
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;4 W9 J% `- _, m4 l" `3 B; j5 D

, |3 Q4 H; j) y- vDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
7 }& j( L. l- f) g) {, \DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;- t' J0 Z( S2 m
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
4 r8 a7 H+ u. IDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;1 o, L1 o/ |1 i& L4 N
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
8 F5 o! \4 I# g% _, h3 a. H- YDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;; u  L# p3 w5 [6 c, P$ D+ U( _
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;; \- U: x- C' `- Z$ }
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
& d$ S6 o5 X& H, pDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;) E4 j6 T% r  G% ~; i, }4 o5 h
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;1 }9 b0 F3 K. a. a+ o3 L
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;) Q' ^, B( Z6 U1 y/ r# H
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
3 J( O4 S( L; U. S9 ]: Y- i通达信：) N# K* ~4 U. H  A
公式名：六甲
0 ]2 C# Y# Y) m, VA1:=DATETODAY(DATE);
  q6 X7 w* Z' E; Z" m5 d3 ]A60:=MOD(A1,60);& f# D, L: x0 q9 P$ z  ], b! e, @
A420:=MOD(A1,420);$ ?, u4 A+ w% |) T9 p- x0 a
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;
7 ?9 @: O% J% O$ q0 ?DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
$ ~) r! M" [4 A/ @+ m% X, cDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
! i3 w7 M" T9 V3 c3 FDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;! f" M1 k5 I+ R1 y' y6 W. C: e3 L
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;% w' r( Y6 v" V6 \
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;! Y( l, T' i/ C9 r) C$ o) J5 \- d6 H- t

& M9 e4 D7 T4 X6 W, lDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;8 X1 p$ _) R! e! K
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;. Y* I4 W7 G: |5 F  ]* ]
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
. I+ F0 T" ~  E8 IDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;; M7 g0 V1 l! G. s) K% [
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;2 A; A) \6 U6 I! G
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
# o! y: |% D/ k: j1 f# A4 pDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
7 P. \. \4 ^8 h# u' Y# fDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;( V4 _8 l( I  v+ H1 e3 Q8 ?" _- L' @
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;" _* z9 u* N2 ]7 r* D  x% }
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;3 \2 Q, u9 F6 @, n/ t
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
* A: G( q" Y) i. U. s1 l" mDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA;
作者: 恒益    时间: 2011-1-15 21:34
A2除420的余数不可能大于420。
作者: 天蓝蓝    时间: 2011-1-16 00:15




欢迎光临 【阳光飞狐__与财富同行】 (http://bbs.88158.cn/) Powered by Discuz! X3.2