可在大智慧和通达信显示甲子的公式发现一处错误，现改正% P: j4 C; j, Y. k# S
原公式红色这句中538和537改成118和117.
$ r% p2 d7 I- b) {+ e, P# \5 w. T3 `# s* K
大智慧:% f' m; W6 k, d; {
公式名：六甲: _( h0 z- W3 M1 O& b( M3 r
a1:=DATETOD1970( 901218);
. Y- J& y6 W7 r7 Q+ Ca2:=DAYS1970-a1;
6 X, `' r" D+ Q* Y3 _- l1 pa60:=MOD( a2,60);" U& S3 U: @" Z
a420:=MOD(a2 , 420);) o( c0 W# B# N# |; b) Y" M
DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;/ x+ l0 G' C# y- A8 Z( J. {0 n
DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;' k2 J" q5 t" F9 V
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;
( ]8 L: {+ Q1 Q5 C6 w8 FDRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
9 O9 N' d) J+ b- j/ W7 ?DRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;) b; j1 ^7 y# T& w k- g
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;- g" @0 }% [5 M$ w$ Y& y
% c) |; H, p% b# j2 _DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
& p$ l3 m. d8 x4 I2 FDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
0 v( u7 ~# ]. P9 PDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
6 U! K3 X# {& z# bDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;
5 ^( @# y+ d: _7 hDRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;, @3 M7 ]# M' [% {1 i8 l! d( o
DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
2 r) M2 }0 W; z1 ^DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
) r8 g2 C! E; @4 p2 U+ B3 z( lDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;( m7 c/ ?: r% n- W* c* ~$ h
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;" \" Y% v) p) h2 W! `$ v; U' r
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
$ K0 S9 @( g$ P6 M" M8 ]DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;' |. }% x; N2 s+ W- W
DRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;' N6 q9 y% {4 z, L* A
通达信：6 z T* M E8 T4 `: }" A; s
公式名：六甲
4 W o* G/ \: N/ n9 LA1:=DATETODAY(DATE);3 W- K6 B* G) o b
A60:=MOD(A1,60);
* o+ _( T) E7 \9 j+ e, kA420:=MOD(A1,420);
6 G C5 h" d; \/ ^4 x" e( uDRAWTEXT(A60=6,L ,'甲子'),COLORRED;) e% B: h6 a* H; \% H0 W* j9 ~
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;6 v0 J4 V$ O& A$ \
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN; m1 L, d! P' j/ T* [+ x
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
m6 \9 ?/ |* K: ~% [1 p$ PDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;5 E& A0 c) d0 G7 u, N
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
1 J5 O6 g0 C- d- `+ m% b8 ~
9 O+ P* {$ s# z; K# {2 G! aDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;: F) L6 r b. L4 e7 F9 P4 |+ M/ S
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
; a# Z7 {1 p% S v/ B D; s8 SDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;4 t! |2 a, d: w }- @! a
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
3 @1 i! F; }- I5 V# ADRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;4 ^) e, I, S8 t+ ~
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
/ Q: l0 V) j) G& W. MDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
$ u. k' y, F/ e- u0 K6 ?. L( ^DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;
/ N! @# D1 Y ^* n% S2 ?, \0 TDRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;2 E2 h9 J" {0 G$ |6 d3 p+ J& ` I
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;
) U# n; t4 T& N' w" q+ RDRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;% N6 ~6 z( A3 ]* O/ W: z8 ^3 M
DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA; |
楼主: 恒益
|小黑屋|手机版|Archiver|【阳光飞狐】
( 网站ICP编号：京ICP备06013475号-7 )
发表于 2011-1-14 16:00:04
发表于 2011-1-14 19:13:53
楼主
