标题:请问这句代码错在哪里呀?
只看楼主
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:325
专家分:114
注 册:2010-2-17
结帖率:69.81%
 问题点数:0 回复次数:1 
请问这句代码错在哪里呀?
在我编写的程序中,有这么一句,运行时提醒 “编译错误,过程太大”,请问错在哪里?
Print #1, Date & "|" & " 设备-1    运行了:" & " " & Format((Val(i1) \ 3600), "00") & ":" & Format(((Val(i1) Mod 3600) \ 60), "00") & ":" & Format((Val(i1) Mod 60), "00") & " " & "    " & " 停止了:" & " " & Format((Val(b1) \ 3600), "00") & ":" & Format(((Val(b1) Mod 3600) \ 60), "00") & ":" & Format((Val(b1) Mod 60), "00") & " " & "    " & " 班运行率为(12小时):" & FormatPercent(i1 / 43200) & " " & 日运行率为(24小时):" & FormatPercent(i1 / 86400)

如去掉最后一句“ & " " & 日运行率为(24小时):" & FormatPercent(i1 / 86400) ”则运行正常

就算是把上语句改变为如下也出现提醒 “编译错误,过程太大”:
Print #1, Date & "|" & " 603B-1    运行了:" & " " & Format((Val(i1) \ 3600), "00") & ":" & Format(((Val(i1) Mod 3600) \ 60), "00") & ":" & Format((Val(i1) Mod 60), "00") & " " & "          " & " 停止了:" & " " & Format((Val(b1) \ 3600), "00") & ":" & Format(((Val(b1) Mod 3600) \ 60), "00") & ":" & Format((Val(b1) Mod 60), "00")
Print #1, "                     " & " 班运行率为(12小时):" & FormatPercent(i1 / 43200) & "          " & " & FormatPercent(i1 / 86400)"
去掉最后一句“ & "          " & " & FormatPercent(i1 / 86400)" ”则运行正常

搜索更多相关主题的帖子: 代码 
2010-08-07 18:40
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:0 
重点检查这句。
Print #1, "                     " & " 班运行率为(12小时):" & FormatPercent(i1 / 43200) & "          " & " & FormatPercent(i1 / 86400)"

i1 这个变量,你前面运算中,都是使用 val 函数强制转为 数值 ,为什么最后一节不需要转换??
建议你转换时间的格式的定义为一个子函数,每次使用时进行调用,而不是到输出时,再写表达式来运行,会增加出错的可能性。

 Format((Val(i1) \ 3600), "00") & ":" & Format(((Val(i1) Mod 3600) \ 60), "00") & ":" & Format((Val(i1) Mod 60), "00")

凡是在程序里,二个或二个以上地方都使用到的运算、处理过程,都建议定义为 函数 或过程。 尽可能的使用模块结构,以提高程序的健康度。
--------------------------------
还有,print 命令中, 字符串 连续输出,不建议使用 & 字符串的连接符号,而是建议使用
print 连续输出分格符 ; 半角分号.

第一行输出后,最后用 分号 结尾,那么下面的输出将还是接着前面的输出位置

不带符号 结尾,那么将换行。

--------------------------------

授人于鱼,不如授人于渔
早已停用QQ了
2010-08-07 20:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-315073-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.586186 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved