关于问答区统计时间的完善

冯古屋

算出一个子程序开始到结束用了多久
http://125.confly.eu.org/forum.php?mod=viewthread&tid=14017371
(出处: 精易论坛)

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
t	整数型

t ＝ 取启动时间 ()
延时 (2000)
t ＝ 取启动时间 () － t
调试输出 (计算time (t))

子程序名	返回值类型	公开	备 注
计算time	文本型
参数名	类 型	参考	可空	数组	备 注
time	整数型

变量名	类 型	静态	数组	备 注
t	整数型
秒	整数型
时	整数型
分	整数型
毫秒	整数型

t ＝ time
时 ＝ t ＼ 3600000
分 ＝ (t － 3600000 × 时) ＼ 60000
秒 ＝ (t － 3600000 × 时 － 分 × 60000) ＼ 1000
毫秒 ＝ t － 3600000 × 时 － 分 × 60000 － 秒 × 1000
返回 (“耗时：” ＋ 到文本 (时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒” ＋ 到文本 (毫秒) ＋ “毫秒”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 子程序1 ()<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> .局部变量 t, 整数型<br /> <br /> t ＝ 取启动时间 ()<br /> 延时 (2000)<br /> t ＝ 取启动时间 () － t<br /> 调试输出 (计算time (t))<br /> <br /> .子程序 计算time, 文本型<br /> .参数 time, 整数型<br /> .局部变量 t, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 时, 整数型<br /> .局部变量 分, 整数型<br /> .局部变量 毫秒, 整数型<br /> <br /> t ＝ time<br /> 时 ＝ t ＼ 3600000<br /> 分 ＝ (t － 3600000 × 时) ＼ 60000<br /> 秒 ＝ (t － 3600000 × 时 － 分 × 60000) ＼ 1000<br /> 毫秒 ＝ t － 3600000 × 时 － 分 × 60000 － 秒 × 1000<br /> 返回 (“耗时：” ＋ 到文本 (时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒” ＋ 到文本 (毫秒) ＋ “毫秒”)

我感觉可以把毫秒也加上，@cwjhome
没啥技术含量，因为已经关贴了，所以就再分享下

冷色系i

感谢楼主感谢楼主感谢楼主感谢楼主

s1mple

.版本 2

.局部变量 a, 整数型

a ＝ 取启动时间 ()

标签3.标题 ＝ “耗时：” ＋ 到文本 ((取启动时间 () － a) ÷ 1000) ＋ “秒”

cwjhome

围观

我們還太嫩

支持分享时间操作例子

素顏じ亦傾城ジ

呃.. 启动前取一次, 保存在全局变量里面.. 然后完事的时候取一次嘿嘿.

李逸梵

前排。