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

标题: 可在大智慧和通达信显示甲子的公式发现一处错误，现改正 [打印本页]
作者: 恒益    时间: 2011-1-15 21:31
标题: 可在大智慧和通达信显示甲子的公式发现一处错误，现改正
原公式红色这句中538和537改成118和117.
7 _9 M0 w7 J+ j3 ~2 v% Z3 d& T' r# z$ A
大智慧:
5 G" G  e1 W1 G) b- G公式名：六甲+ g7 i# S/ g* o* q$ x; E/ S
a1:=DATETOD1970( 901218);5 t$ y% F  `* [! }& M
a2:=DAYS1970-a1;. q+ M" q) Z# }7 j# r: j0 L. X5 H
a60:=MOD( a2,60);0 B( `$ Y; s  ]9 A0 [
a420:=MOD(a2 , 420);) H% N, U5 J, r
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;, k& d1 Q/ f0 I6 @
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
1 M: \1 _4 S& p2 k7 ~1 Y/ IDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;, |9 Z' }8 w3 O
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
$ i, ]; k; x( S, ODRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
" Y; s; G- p( n1 b  s1 L4 A' `DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
2 }* y( A1 K( x& g* M  h4 V1 o" r0 P' D- S
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;3 P7 O; U- p9 n% ]: M7 c
DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;$ }! {+ e, d0 T' J3 F
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
6 l5 y0 @5 g! b. Z0 P0 ~: L* A- HDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
5 |/ v5 m# U7 {. l2 ZDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;4 K- f! U8 K/ o  W- ^
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;9 [3 {' @0 |. e* L; U
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;4 m8 G+ B# x3 s
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;# r+ O' ?9 V+ o' B, L
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;0 J' N7 o6 ^1 n* G1 d8 V% c
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
8 C6 f: I- j7 K: \( E4 c& I( cDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
$ C' ~  d- v. w  D3 Y( c5 g  Y8 vDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
: G. u$ u0 g# v  X; x7 j通达信：. a6 @# |; @* m4 [2 n
公式名：六甲
7 B3 Z8 L4 N* t' c9 I  D% ?A1:=DATETODAY(DATE);
8 ~) l8 ]$ i+ G6 TA60:=MOD(A1,60);
- T* `+ I) w8 A) r  d/ vA420:=MOD(A1,420);
  K: ?& c8 j8 |# r% N4 ?8 sDRAWTEXT(A60=6,L ,'甲子'),COLORRED;
+ m6 o3 i& t7 B, E% jDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;9 s: @1 ?& e$ p5 c- w: L* |% K. H
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;  z9 T( n8 t3 s9 k7 L
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;- y* d  P: L5 ]+ d0 x4 |1 F% X
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;9 a6 c- F  `! k/ R  A7 R
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;, X3 t4 ~$ U/ D! x
% T/ Z8 G4 m) \
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;# o2 U8 y2 O4 R0 p* L! l0 c
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
1 g. L- q" c% z) SDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;8 b* J4 p( E; f" B
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;  ]& ?8 k) S; R0 a! M3 i
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;7 B' y+ ?* f. c* _8 c0 j& n/ K" B
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;  g9 X2 Y7 c; Y9 R5 K# n  ]/ P  D
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
7 g1 Z; J- i4 \8 E3 ~DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
' Y- w& r" R4 b6 h% @# Z: QDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;  W  _1 B' Y& ^( P
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
( `0 F' D4 ]6 C+ J3 E; JDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;& S# N! x2 W% m/ V6 Z3 D) \9 B/ j) F
DRAWTEXT( 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