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

标题: 可在大智慧和通达信显示甲子的公式发现一处错误，现改正 [打印本页]
作者: 恒益    时间: 2011-1-15 21:31
标题: 可在大智慧和通达信显示甲子的公式发现一处错误，现改正
原公式红色这句中538和537改成118和117.
0 L$ P0 @/ M' ?  }4 |5 {4 U; m" `+ q
大智慧:( ?% b# d$ K0 D( O3 `, Z+ [
公式名：六甲
6 }8 x4 s: L& g: |# z; n/ v# Pa1:=DATETOD1970( 901218);
6 H6 M, ^) M& }6 [! B. |; S, Va2:=DAYS1970-a1;
$ K8 v4 w0 C( D2 C' U7 P4 U( Q6 ja60:=MOD( a2,60);% k: K/ J5 n6 [
a420:=MOD(a2 , 420);
( m+ h9 |+ I/ b7 L" {5 FDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
8 V# Q! g( y. z, h4 s$ h$ x3 GDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;7 ?% V" h/ h0 I" k  E+ D6 X
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
5 n' P* G' d$ q6 MDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
$ E0 @/ ?% j0 m$ x& c) F3 y( bDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
- h6 y0 z2 ]8 \( i3 }" uDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
" Q! C& d- N3 U8 V" Q$ o
& F1 e6 `3 [1 Z" J/ mDRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;! d  r) r+ @' p  b8 t  s" a) p  Y
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;9 T7 \7 @% K! \
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;7 r% r' I' z6 X
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;" {6 c/ O( h, T* h, e
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
! b& S6 s& r; LDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
' a2 ]" u) t+ D2 V+ t; NDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;' k1 t# ]5 g! k- `9 P7 h
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;
: j. e* f; L* r( p+ TDRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
( z4 X" _5 `4 T* l$ ]" O: GDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
# ^0 y8 c- ?) x7 P8 o: ?2 N) zDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;5 B: z  K3 j8 P
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;) p) d1 [- @" M) y( V
通达信：
7 x% f% S6 \6 Y0 n- g公式名：六甲
& V5 }  v' i/ ]* r+ AA1:=DATETODAY(DATE);4 P4 t( t- j. w) m+ n$ t- q; b% p
A60:=MOD(A1,60);9 @; |8 W& H$ N8 K; l# D
A420:=MOD(A1,420);6 @! v4 w! Y3 u. ~% Y1 ~2 D
DRAWTEXT(A60=6,L ,'甲子'),COLORRED;5 R0 ^2 g; K; H" g( C8 z" k) G$ d) d
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;* Q* O4 I4 S: Y+ y2 M
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
) l9 t) ~+ O" \2 bDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
- E( ^. Y# P! K8 r% ~DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;4 {/ V3 B) E  T% y6 `0 o4 W
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
/ a5 O$ P2 U, v7 u
0 g1 \9 n: g8 M/ I+ sDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;, ^2 f6 P4 {) q0 i
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
7 J* z# I$ m+ Y3 XDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
: U; y$ y$ J  H+ P8 [& yDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
% X3 v7 X$ D6 z. }1 y; C+ W  `DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
, [: b+ m% L+ J1 D8 ~2 a1 `DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
( W, f; t7 Z) ]" rDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;3 I  X/ O0 H3 r: {3 {
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;8 v% z: X4 ?# e% v
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;+ c7 a3 n4 K3 r: X$ G$ S& s) _
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;9 c+ |+ E  q+ l7 Y( d6 @( k
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
1 x5 K8 ]9 V5 S, |4 fDRAWTEXT( 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