可在大智慧和通达信显示甲子的公式发现一处错误，现改正
$ q4 {( j6 a" R" a# o( @ a$ v原公式红色这句中538和537改成118和117.
7 r1 M$ q1 |' W/ I$ H @% D( W* x. D' {& X
大智慧:
" g( e$ p) W3 W# j* s7 Y3 n公式名：六甲
5 g& f/ I+ i) p. _/ O! e2 h" La1:=DATETOD1970( 901218);9 e+ c0 S6 x/ ^5 ] K' |" l
a2:=DAYS1970-a1;
1 T( D2 @$ y! f6 a; |) K8 s0 e! ba60:=MOD( a2,60);
4 y* |7 c0 W* f( ha420:=MOD(a2 , 420);( `) E# b3 f* b& B, t1 P
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
4 i4 W; i5 `0 u! x; cDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
4 H3 s# V! z& ]% I' o. f9 P0 FDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
) c7 u. ]0 `3 Z6 CDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
, l- p/ ]: Q, G# v) ~+ UDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;8 @6 g5 I3 m; @9 N% b3 N/ X @" S4 X
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;
! s' z9 {/ i: S. O5 p# R/ f# R7 \$ z! P* J
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
( [! `1 W: @7 U( S, \DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
; s2 y9 {% a/ jDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;+ g5 h* V* G* G; C. H
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;0 \# e! X2 G/ f* ^ ^% ^
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;/ b8 T; n* H5 M6 g% f" i# [, Q
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;) L3 L8 H- M6 b/ S' N" Y
DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;4 q, U* E! w1 a* ~( e8 r
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;$ k1 U( ^: `; T+ \( w9 V
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
% q* p0 [( i( F" A0 t: jDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;0 C0 O/ W5 H- t; |8 V5 L% x
DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
; r" l2 |% c" B# S8 P6 N& @DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;5 n( D2 P- q* Y
通达信：
/ |. z" @& L! j7 o5 }公式名：六甲
6 Q$ @* t3 y% A( j0 g# G1 kA1:=DATETODAY(DATE);, x: W5 g, a, Y5 Q2 d0 {8 B# A" v4 q
A60:=MOD(A1,60);
/ V1 Q( u9 d) _A420:=MOD(A1,420);
4 @4 @/ c" B' }8 A3 \" X8 x+ ?* sDRAWTEXT(A60=6,L ,'甲子'),COLORRED;
! i& l* h" a9 G$ ?! P7 d6 l/ D! A8 vDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
' f7 b! ~* E5 S/ VDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;2 N6 w- m2 @! [7 D6 n; X7 ]
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
! H3 j! P8 v/ C* u. wDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;) G. w1 O% n2 B* d/ [
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;; h" C! m8 j2 r2 z( Y
/ {' |6 Z9 n6 v7 D6 o% V8 z D) mDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;; s' e, u1 l: B& k$ S0 u
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;" i, Q v" g% @ L( r3 p
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
1 M R0 v8 T" Q+ |1 b8 fDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;/ N$ A6 Y8 b4 Q' C) S4 f
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN; T& \3 e' W& o) R
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;+ Z' ^) v0 G' m. o& G; o
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
" ~9 ~; j/ L* a6 v x9 m, T' W3 BDRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;1 a) H: N6 _. \" k# k
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;
. `# S4 g3 F7 g0 s' K7 KDRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
9 F6 [! U$ W3 z+ b( JDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
6 z% _& ~; @7 CDRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA; |
楼主: 恒益
|小黑屋|手机版|Archiver|【阳光飞狐】
( 网站ICP编号：京ICP备06013475号-7 )
发表于 2011-1-14 16:00:04
发表于 2011-1-14 19:13:53
楼主
