馬斯平 發表于 2012-2-22 15:17 ![]()
J! y' ^3 \- m2 @$ I" T' V0 a樓上說宏程序沒用的朋友,是對其不夠了解或者沒有從事過具體的編程工作。$ f/ X' e$ M) Y# G
即使發出來了,也未必能看得懂, ...
9 Z; u! [3 ?: I* R' JIF[#532EQ99.0]GOTO900 系統不同它的宏程序也不相同發,我只懂點FUNUC的,如果用FUNUC的觀點為來說你的這個問題它 只是一個在任何時間里給幾個宏變量賦值的程序,我不知道這樣賦值起什么作用?但同時我覺得它有些不怎么妥當的地方,) C( F& Q8 G, [; o. Q% D2 ?
N1
4 \) y9 A7 s9 H e9 p1 q8 b#3=3.02 e- B- I! O5 s7 q: ?, J! Y4 ]
#4=3.0
6 {# f2 Z/ y5 M. [8 ?' h1 Y#5=5.00 X5 s, o& i, b
#6=10.0
+ }0 t& O4 d5 _9 ^5 \) MIF[#20EQ#0]THEN#20=30.0
) @* d. }$ @5 V# f9 Y, R#532=0
3 A% p: R: W: Z* G9 }: Q1 Q( C0 Q#537=0
. B* C. U8 W2 D4 F# Q v#538=0
3 q5 w+ p! g+ @* X" O
8 q, V& h4 ]. s" t* `9 _+ yIF[#3LE0]GOTO9009 `( X% [' h2 N; K& y2 Q/ }) Q" r
#10=#3011 在FUNUC這是讀取當前的日期如今天就是20121210
& T4 b; I* U2 Q% ]& v: }/ z8 Y( e#11=#3012 這是時間如現在是1840006 Z1 Z* |- ]2 y9 D" \+ h; _
#21=FIX[#11/100]
, Q) P5 U& V' e#22=#21-FIX[#21/100]*100這是指分鐘40分
* d. f% M$ Z% |#23=[#21-#22]/100 這是指時針18點
+ X! _7 n( `; |. N) m8 U' t- L#12=ROUND[#22+#23*60] 這是把18點40分化為分鐘7240: e0 {( @, G: Y" g/ ~
#13=0
) n: {: l, y1 [$ d# GIF[#10EQ#535]GOTO100; N* a$ h+ M) N& x7 i
#13=14404 e( K6 G) m8 {9 E
N100
3 i+ I* R" A0 E- D& i- x3 YIF[ABS[#12+#13-#536]LT#20]GOTO200 這個可能是為了避免0點和23點59造成的差異
/ d! }% j0 |3 |N110#533=1( l( A! K% `6 N
IF[#3GE2]THEN#538=99.0
6 B" w5 \ m1 KGOTO500 $ T& X& Q7 k! h
N200
6 D4 P0 z) ~& {; i/ d2 a#533=#533+1 ; l9 I1 L' Q. r
#534=#534+1
* G: K' A9 U* u, Z" U& BIF[#25EQ1]GOTO400 這個就不明白了,程序至終都沒有25號我覺得有點不妥5 J L4 ^- p6 X: w5 i$ S
IF[#533LE[#3-1]]THEN#538=99
7 c5 S+ \0 { f! XIF[#533LE#3]GOTO500
, K) w% E8 n9 U" O0 ]7 [IF[#533GT#6]GOTO300 這段應該是不可能能讀到的我設了很多時間都讀不到這段
1 H" u. H# J5 z+ j2 x/ YIF[#534EQ[#4-1]]THEN#538=99 6 `" |& y; d0 K& B( G( b
IF[#534GE#4]GOTO500 # m7 w( Y. A p
GOTO800
% N4 m$ ~6 \/ ]& k8 QN300
' V! h+ u& x) u% KIF[#534EQ[#5-1]]THEN#538=99
+ A7 D# _/ R; M9 p$ X, @IF[#534GE#5]GOTO500
4 T" k8 R; m; A. Y. `8 M3 \# l* GGOTO800 , w- F' w: }8 \4 Y
N400, i: W9 j; q x: K; U$ x9 I) F- f$ t
#538=99 % ^% r6 w% g( ~& F1 Y3 V
; ~ o3 C5 e, y2 I
N500' ?6 I) s; q1 }$ g5 J" T4 c0 t
#537=99.0 就是為了這些賦值?如果只是為了賦值直接賦不就有了?為什么要搞得這么復雜呢?所以我還是不明白,能否賜教一二6 |+ V! t% C9 K: @- A% V7 u
#532=99.0 8 ]: }; @& @1 U2 r6 K
#534=0
! G2 i; g* w! }N800 H/ l) ?+ k& z! d, j
#535=#100 z7 R# @- T% ]. T% w
#536=#12
$ b3 d- v9 Q! z5 [# l |