马斯平 发表于 2012-2-22 15:17
8 H& j/ a) A% l' V( T0 [4 o
楼上说宏程序没用的朋友,是对其不够了解或者没有从事过具体的编程工作。
. T( Y1 }5 k) w2 x9 N+ x! ^' F即使发出来了,也未必能看得懂, ...
# B" v* {( p$ R) g2 U+ u- ?/ e# n IF[#532EQ99.0]GOTO900 系统不同它的宏程序也不相同发,我只懂点FUNUC的,如果用FUNUC的观点为来说你的这个问题它 只是一个在任何时间里给几个宏变量赋值的程序,我不知道这样赋值起什么作用?但同时我觉得它有些不怎么妥当的地方,/ ~. k m) J& X N13 E# @* B, j0 @" t! m f- R #3=3.0 . b" @1 ]: p0 U# z" F#4=3.0 ' |. y' @* i. r; e Q#5=5.0 " u$ ~ b$ k% U5 a- ^3 {& y#6=10.0 ( a+ g" j. |- N5 U8 }( ` f5 xIF[#20EQ#0]THEN#20=30.0 ! h( w) i6 O0 c1 e#532=02 C5 j( J9 z9 n# \: u5 W #537=0 & s# Q3 g O) M$ k, V) S#538=0 % l/ _4 @5 G+ i5 s6 [, ]: H# R+ W; D3 P+ S; h- [: k) e) ] IF[#3LE0]GOTO9002 }4 ], A" b3 B% H3 \ #10=#3011 在FUNUC这是读取当前的日期如今天就是20121210, K/ @, a8 ~2 c3 ]: \2 t- S8 [ #11=#3012 这是时间如现在是184000 , q( t+ v1 u9 p. Z' v6 ?- X( j! T/ K#21=FIX[#11/100]% @( D" R4 \% V5 [+ Q: E #22=#21-FIX[#21/100]*100这是指分钟40分 ' N0 k" r% n, k#23=[#21-#22]/100 这是指时针18点 & ]& } n' ?( @ M$ _#12=ROUND[#22+#23*60] 这是把18点40分化为分钟7240 : ?. _7 I: e% P0 \# ~#13=0 ; F. U9 r) m/ T1 f1 ]) z) sIF[#10EQ#535]GOTO100 . r! A: q; K8 w: i0 M#13=1440 ; v8 ^8 [6 _6 I0 v7 h3 S. \N100% l8 r- j }% A IF[ABS[#12+#13-#536]LT#20]GOTO200 这个可能是为了避免0点和23点59造成的差异% K+ D7 x/ U) D0 z6 z N110#533=1 9 t: {7 o- ^) G+ ]IF[#3GE2]THEN#538=99.0 % `- a" n9 Q& E# OGOTO500 ' Y) ?; S: w# F/ x* M; b9 E8 aN2003 j, [5 ]5 i' J6 D2 T& N #533=#533+1 , M0 ]& Y5 y6 ?( q' J. \#534=#534+11 `6 J6 N9 g3 _( H$ c g IF[#25EQ1]GOTO400 这个就不明白了,程序至终都没有25号我觉得有点不妥9 ^, t8 O9 a( L& S. | IF[#533LE[#3-1]]THEN#538=99s& J8 }- e: z+ y9 k IF[#533LE#3]GOTO500 . u3 ~ m( |5 @IF[#533GT#6]GOTO300 这段应该是不可能能读到的我设了很多时间都读不到这段( ?' e0 ?0 y0 _* u/ Z IF[#534EQ[#4-1]]THEN#538=99 - ^* k- F" b6 U$ JIF[#534GE#4]GOTO5004 V" T% c+ P/ v GOTO800 8 Z4 G- G7 d9 ^& C, \$ ^6 A! XN300 ! @# i: s# }8 C4 o/ sIF[#534EQ[#5-1]]THEN#538=99 # H9 X7 ^5 w( q; GIF[#534GE#5]GOTO500 * w1 ^5 g3 H" d. F. l% eGOTO8000 P: R$ B2 K, f N4004 x2 w" a! N& @# Q E- R1 V #538=99" Q( K. z7 O1 r2 D, R2 {
% J, Y) f9 h {' g* zN500# }0 K# @* E+ R3 M" o5 I: a #537=99.0 就是为了这些赋值?如果只是为了赋值直接赋不就有了?为什么要搞得这么复杂呢?所以我还是不明白,能否赐教一二 5 F" k: E7 o( a& h#532=99.0 1 d+ R4 x" Q; l: h, K#534=0* e& c. F, d: R: U9 w, L ~ N800 8 x6 f& ]4 w2 G#535=#10 2 ]* ?. s7 s; V. ^* E#536=#12 0 F# j& @# F# U( y) _* X: e4 ~ |