可在大智慧和通达信显示甲子的公式发现一处错误，现改正
& t2 [9 ^4 S. m+ ~1 ^- t原公式红色这句中538和537改成118和117.
7 L; ?# @( R0 |# N* s4 O& l1 X
& i8 t' e& t% c7 R7 w# ^ E% D* p大智慧:9 l- h3 R' R0 } y
公式名：六甲" A$ p" e: H0 J+ D; m' ?
a1:=DATETOD1970( 901218);
7 i: m x) x+ f5 \' Na2:=DAYS1970-a1;
3 E' o# p) T6 H4 w+ h1 ga60:=MOD( a2,60);- M6 S* c. j* B2 b- i/ W
a420:=MOD(a2 , 420);
! t. F" H N# N3 V) v ^DRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
6 Z+ l; a1 z7 D2 B. ?DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;
; e% f6 \+ L, l1 D" wDRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;4 S- R- i2 O" B) G; K7 M
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
6 I/ {8 C3 ^" QDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;
5 j' ~7 R% Z! l4 m" I8 o- I: XDRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;9 Q( v6 i1 U5 J
. n- c) _) H& d; P3 m' X. D7 B! @
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
1 P) y8 _9 B) W: z6 \DRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;
, e6 v5 G3 ~* aDRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;: M$ N9 Z* S `1 G0 r: G7 I, X
DRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;! N1 O' R6 g5 G2 Q n) V5 ?2 E
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
4 N$ O' `. W f% d/ u2 s8 W% S& {! ~DRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
' x6 B1 o. y- Z' r/ n+ F; SDRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;( w w7 E% m( Z
DRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;; F f1 z2 l+ I$ i% G+ B
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;
* d+ c9 y8 v$ t" c7 z# t9 jDRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
" p& m* V5 y4 X& p j8 e( @DRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
2 I6 O2 O6 {$ q5 R3 WDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
: J+ o( z7 |* ?, F1 Q' p通达信：
; c* T3 {. P* B公式名：六甲9 k8 m7 _( i s# @# Y& l
A1:=DATETODAY(DATE);9 |# M* @5 }' w% R& Z7 G8 j
A60:=MOD(A1,60);! ]1 y# X& n1 F9 X4 N
A420:=MOD(A1,420);
- g$ h* {% I; c) h! qDRAWTEXT(A60=6,L ,'甲子'),COLORRED;2 Y6 V# f" ?3 S9 [2 ~9 K; a ^3 I
DRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW; W6 v2 Z) o y, h$ ^$ i6 C- V
DRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;5 u& Y1 Y# |' ^, J$ w$ ~" s. ~
DRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;
: i D5 N! P1 jDRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;! F/ S+ t O0 V2 ?: Z; e& O
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
2 @4 V0 R7 _% R0 e6 a' m6 v$ ]" P3 Z/ t6 T
DRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;
8 K4 X. {$ S0 D' k7 IDRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;
% s' ]% j4 e2 B/ d0 LDRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;
" v: d. R1 m/ U7 rDRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;( H; `% L- C; N! Y6 g
DRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;0 {) t$ t) y; G* I% q' q, p" j
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;& N5 ^& N1 d5 p7 b' M6 I i
DRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;
3 }( G0 C7 {6 K7 E7 @) w5 v6 ODRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;2 L: ?' s% y' b8 ?% y
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;& x" m4 w% L. [7 b3 y/ [
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;+ C) y" J. c' C) c3 u4 p& X S
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;
# ` U; j. }4 m. C4 X$ r4 T5 `DRAWTEXT( A420=537,L ,'甲寅日' )COLORMAGENTA; |
楼主: 恒益
|小黑屋|手机版|Archiver|【阳光飞狐】
( 网站ICP编号：京ICP备06013475号-7 )
发表于 2011-1-14 16:00:04
发表于 2011-1-14 19:13:53
楼主
