馬斯平 發表于 2012-2-22 15:17 ![]()
. B( P' ~3 K2 |% i8 F0 I& ~; h' c樓上說宏程序沒用的朋友,是對其不夠了解或者沒有從事過具體的編程工作。
M! |$ D9 _0 l" Z! ~即使發出來了,也未必能看得懂, ... ! R' _7 A+ u3 r3 G$ P* N% ~
IF[#532EQ99.0]GOTO900 系統不同它的宏程序也不相同發,我只懂點FUNUC的,如果用FUNUC的觀點為來說你的這個問題它 只是一個在任何時間里給幾個宏變量賦值的程序,我不知道這樣賦值起什么作用?但同時我覺得它有些不怎么妥當的地方,3 U+ Z0 h( c6 }3 K, D
N1
8 g, `0 _; { w: A0 C% B5 \- j#3=3.0
/ }0 G7 f1 _" w' J#4=3.0
( r5 j6 e& l1 |6 z' G( B( C$ ]4 @% V#5=5.0- {2 x" V# ?) o8 V$ n
#6=10.0 # w& t3 I9 }9 Y! ~& Y; [2 O/ c+ r
IF[#20EQ#0]THEN#20=30.0 # a: P6 g: D" `) s! `, L
#532=0
4 e7 E; b) t- y( ?1 ^/ n O#537=0- E! ^3 Q9 I$ _3 O }
#538=0
2 b# q( n" ?$ e3 y7 C/ E+ F9 ?7 b6 D# }0 R1 q# {; k
IF[#3LE0]GOTO9000 c j ^" ?+ c# @
#10=#3011 在FUNUC這是讀取當前的日期如今天就是20121210$ b1 G8 m0 b/ P2 F
#11=#3012 這是時間如現在是1840003 U' X. I& A6 Z
#21=FIX[#11/100]
! w, c7 f1 l9 l2 X#22=#21-FIX[#21/100]*100這是指分鐘40分1 u( T1 T. K9 d+ Z! V
#23=[#21-#22]/100 這是指時針18點* z$ Q7 c s, ^% N
#12=ROUND[#22+#23*60] 這是把18點40分化為分鐘7240
: G8 A% _9 V8 }( D1 S3 w; c) M7 v#13=0 * H1 l* O. w/ R! r- X
IF[#10EQ#535]GOTO100
3 |7 i, Y) P9 z# {#13=1440' R' C; Z+ c' [. {: X
N100. z' a" B/ R& \9 T0 X: r
IF[ABS[#12+#13-#536]LT#20]GOTO200 這個可能是為了避免0點和23點59造成的差異
1 b. J6 B x$ j0 M4 UN110#533=1- Y& g& c3 \* J8 G
IF[#3GE2]THEN#538=99.0- A1 \5 N' b* k' b
GOTO500
0 n8 ], y3 F" m, z, ]# e; Q+ WN2000 d5 d9 @; a9 K1 ~2 J
#533=#533+1 : w( W. }" r& u' r9 w5 n% b0 V
#534=#534+1 & r* s! t5 w( f6 A" F% g0 F$ b& o. V" D" i
IF[#25EQ1]GOTO400 這個就不明白了,程序至終都沒有25號我覺得有點不妥
4 n" W7 c9 P0 t3 F( I' X7 {) O4 AIF[#533LE[#3-1]]THEN#538=99
( Q; V4 _- A7 |/ vIF[#533LE#3]GOTO500 1 z; u, } o5 k: q* H& K) d: e+ z
IF[#533GT#6]GOTO300 這段應該是不可能能讀到的我設了很多時間都讀不到這段
. ?1 i- Y8 [2 C$ S5 s$ gIF[#534EQ[#4-1]]THEN#538=99 ' @# g- V8 y1 x7 i+ |3 R2 ~( G0 a
IF[#534GE#4]GOTO500 9 V/ Z3 @& N( v2 y( m8 ]9 m
GOTO800
, ^$ @! f) B) eN300! y6 Y6 r& A2 d3 H8 K! S. a
IF[#534EQ[#5-1]]THEN#538=99
: R1 {5 A0 _6 c9 O* A! l, TIF[#534GE#5]GOTO500 * s: P8 P8 z# M7 u
GOTO800 5 R/ k0 l. K2 v, A2 b4 S; P
N400
# l$ q+ n* n! ~) m+ P7 Z- ^#538=99 8 C/ w7 D, m5 g" w% I! ~
7 s7 |% r3 H* |( O' z* d
N500
6 z. v6 g6 \ y- X+ h#537=99.0 就是為了這些賦值?如果只是為了賦值直接賦不就有了?為什么要搞得這么復雜呢?所以我還是不明白,能否賜教一二' d0 |4 R$ e% C5 K2 _5 t" j
#532=99.0
- \# r6 Q o" H# g9 V6 ]* ~" n1 X#534=0
$ c$ p! x0 B0 c; K; aN800
, C. p5 |/ w* ^; C* S#535=#10
$ d$ P$ ?; I0 a$ t8 Y: M, }#536=#12
" a. J! Z/ C j& F" a: c |