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

标题: 可在大智慧和通达信显示甲子的公式发现一处错误，现改正 [打印本页]
作者: 恒益    时间: 2011-1-15 21:31
标题: 可在大智慧和通达信显示甲子的公式发现一处错误，现改正
原公式红色这句中538和537改成118和117.- h1 V# u. Y- Q* j4 l; G) C

- x  d/ x+ d; T1 s0 e9 h大智慧:
% s5 X# m3 ^/ R. P公式名：六甲
8 ~( ]$ W) g* ^6 y6 w( T+ ~# X" Oa1:=DATETOD1970( 901218);
2 z$ ]0 J' H8 {- w, G0 {" La2:=DAYS1970-a1;/ x# U6 Z! z# \6 a3 H) I3 K9 H
a60:=MOD( a2,60);
' h" {, [: ?+ ~4 ja420:=MOD(a2 , 420);
- \& P3 M7 {) p3 |7 nDRAWTEXT( a60=7,l ,'甲子' ,10),ALIGN1;
  T. R8 U: Q# O3 P* U9 p- _DRAWTEXT( a60=17,l ,'甲戌' ,10),ALIGN1;# W0 a/ @! [& a
DRAWTEXT( a60=27,l ,'甲申' ,10),ALIGN1;: Z  i  _9 D8 f) A; ~. f* t- n; z, ~4 F# u
DRAWTEXT( a60=37,l ,'甲午' ,10),ALIGN1;
# x& G: l; z% QDRAWTEXT( a60=47,l ,'甲辰' ,10),ALIGN1;, m. \, O# C3 M9 o8 g' o
DRAWTEXT( a60=57,l ,'甲寅' ,10),ALIGN1;7 T( F1 |$ r- x% F
9 |( G4 S& Y3 Y! g* k
DRAWTEXT( a420=69,l ,'甲子六' ,10),ALIGN1;
6 o# G8 X0 T" p$ o- O$ WDRAWTEXT( a420=188,l ,'甲子日' ,10),ALIGN1;* c% P' z, H- |5 B% N& R
DRAWTEXT( a420=139,l ,'甲戌六' ,10),ALIGN1;
6 l/ B, o, }* q6 [# L9 T' GDRAWTEXT( a420=258,l ,'甲戌日' ,10),ALIGN1;/ m1 ~, u' g1 Z$ P% {. F
DRAWTEXT( a420=209,l ,'甲申六' ,10),ALIGN1;
" w4 Q5 @& O/ |: N& z8 c2 l7 SDRAWTEXT( a420=328,l ,'甲申日' ,10),ALIGN1;
; e6 J# B& n( k$ w2 u9 {DRAWTEXT( a420=279,l ,'甲午六' ,10),ALIGN1;
9 j" H" j* z0 Z  _. f, O0 yDRAWTEXT( a420=398,l ,'甲午日' ,10),ALIGN1;4 z) k4 X6 ]2 W3 A1 S
DRAWTEXT( a420=349,l ,'甲辰六' ,10),ALIGN1;) _5 O7 R' Q1 N$ F0 V7 I7 x7 n
DRAWTEXT( a420=468,l ,'甲辰日' ,10),ALIGN1;
- u! r9 \( k. i. ?& z7 W, H7 KDRAWTEXT( a420=419,l ,'甲寅六' ,10),ALIGN1;
+ L5 x; J( f8 U$ d7 UDRAWTEXT( a420=538,l ,'甲寅日' ,10),ALIGN1;
  M8 x) _" Y5 ]% `通达信：
5 Q5 o# u2 b/ I6 V. R+ w公式名：六甲9 B; L( K, Q  O# U
A1:=DATETODAY(DATE);+ c1 i1 B/ y" t! d! ?- Y
A60:=MOD(A1,60);
8 u3 m3 j9 O) [3 ^' ~A420:=MOD(A1,420);
) Z8 Q: |+ e& R: \2 R2 o5 uDRAWTEXT(A60=6,L ,'甲子'),COLORRED;
( Y+ M; Z8 T7 R8 P+ d, N; RDRAWTEXT( A60=16,L ,'甲戌' )COLORYELLOW;
1 c8 l/ i* i% ^8 b+ D1 uDRAWTEXT( A60=26,L ,'甲申' )COLORGREEN;
4 M6 N- P7 F& f- I8 G' |% XDRAWTEXT( A60=36,L ,'甲午' )COLORMAGENTA;% [1 d  v9 x9 ~% A3 ^% [
DRAWTEXT( A60=46,L ,'甲辰' )COLORWHITE;1 i* m! [! B& L
DRAWTEXT( A60=56,L ,'甲寅' )COLORMAGENTA;
# e, Q$ a# Z$ t$ w1 W  W# A( T
. D6 e. ]' u$ ~7 `& E8 wDRAWTEXT( A420=68,L ,'甲子六' ),COLORRED;& `: o2 D2 _& |, t$ O8 y( Z# x. p+ b
DRAWTEXT( A420=187,L ,'甲子日' ),COLORRED;" A7 t' b8 W* [; l' g7 Y5 P
DRAWTEXT( A420=138,L ,'甲戌六' )COLORYELLOW;5 m6 z4 j1 w9 o/ a( U+ o7 @( I2 V
DRAWTEXT( A420=257,L ,'甲戌日' )COLORYELLOW;
* A! {, K" m' s- F( N' SDRAWTEXT( A420=208,L ,'甲申六' )COLORGREEN;" k: \3 P; ]& {
DRAWTEXT( A420=327,L ,'甲申日' )COLORGREEN;
7 D: q% D* h8 rDRAWTEXT( A420=278,L ,'甲午六' )COLORMAGENTA;4 p% U6 h/ o7 r0 o% U2 {
DRAWTEXT( A420=397,L ,'甲午日' )COLORMAGENTA;# ^: g4 W. r/ E1 m! g0 e
DRAWTEXT( A420=348,L ,'甲辰六' )COLORWHITE;% n- O  ~, \$ Z% G
DRAWTEXT( A420=467,L ,'甲辰日' )COLORWHITE;" D2 Q: E/ b! ^2 l- \; h* p( I
DRAWTEXT( A420=418,L ,'甲寅六' )COLORMAGENTA;1 \! ~# ]1 c  `- n
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