可在大智慧和通达信显示甲子的公式发现一处错误，现改正6 y4 S2 |5 s8 x0 b T$ [. ]0 ]
原公式红色这句中538和537改成118和117.
$ r4 A E& e' t$ Z
2 n { t; V4 s, a8 v6 z大智慧:
5 D1 _3 |' {7 ~, K- i公式名：六甲9 R& E8 p9 I* y _5 t$ z+ _; i
a1:=DATETOD1970( 901218);8 r4 m6 M- }7 X$ _
a2:=DAYS1970-a1;
6 B5 j+ C. S/ O* w1 g7 W2 ^a60:=MOD( a2,60);
2 d( L, ]4 z5 ta420:=MOD(a2 , 420);3 J9 Y" j8 Z/ W
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
o4 D. z' \( t% CDRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;5 N3 U0 S7 {) U4 ~
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
3 a$ C* V- I6 ]7 b4 x# CDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;" Y' Z% j# I& w8 k; h
DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;7 b9 A; c! n; B* F( x
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;- `' x i, C! O& R9 o; r. x4 h# p
& H5 u2 {& L) x2 A# f
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
# b' Y, ~6 s! pDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
& ]0 i: G1 O+ CDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;6 F- q; i0 ^. U8 o, A3 z
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
9 F2 c n4 r K. p$ pDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;+ ?$ e0 [: |& h
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
/ k) _& {, a0 |6 M4 `DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;3 x& o3 k# c4 N8 i, Q
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;2 U+ {/ K! i: L/ U; `5 P
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;: Z) T- Q% c' Z* Q F" h
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
( O `7 W! J1 P9 [- E& E; TDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1; }2 u/ c" S4 M$ V2 Y' F; C) _% G& {
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
9 `* ]1 m7 }6 R* L9 B9 ~- j, g通达信：
1 s/ l0 G; v* ]1 J# H7 Q公式名：六甲
! i9 S# ~1 a7 Z. B+ f7 c4 Z' K3 I7 P4 RA1:=DATETODAY(DATE);1 z- f: X2 \6 _- o
A60:=MOD(A1,60);
8 o" |5 i# q; R6 s# j$ f" cA420:=MOD(A1,420);$ Y2 u) u, `* W2 c2 t5 `0 m
DRAWTEXT(A60=6,L ,'甲子'),COLORRED; z7 V0 C \) v" ^
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
h0 l# E( V5 ^( FDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;. h' M1 Y* F3 y. u2 z5 m# U
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
7 s& i P" Q# D: Q" n, @DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;
9 M3 T9 P; [, ]+ R6 lDRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;, u! e" t) @! H K4 k# U+ M
. C I3 r3 s( {
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;7 ]! h* R [: p. j4 W
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;; y( E0 B* i" O/ v3 |4 E$ g
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
, O' U2 c7 k) tDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;8 h7 m7 `5 c) c1 {
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;
% d# q0 o! _! H. ODRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;6 J8 l8 F! w7 r0 p7 w) a
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;, q2 C1 s: h* ]/ A9 r Z0 q0 M
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;" q9 `' w8 ^* h3 ~7 A9 \
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;% Z; r& Y: p1 g3 P, t, r z
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;/ c" s1 l% [9 E- q+ l1 P5 V/ R
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
0 d' H, a/ Z' ^- g" ODRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA; |
楼主: 恒益
|小黑屋|手机版|Archiver|【阳光飞狐】
( 网站ICP编号：京ICP备06013475号-7 )
发表于 2011-1-14 16:00:04
发表于 2011-1-14 19:13:53
楼主
