最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
计算页面执行时间
时间：2022-07-02 22:33:16 编辑：袖梨 来源：一聚教程网
函数名：GetTimeOver
'作 用：页面执行时间
'参 数：flag ---显示时间单位1=秒，否则毫秒
'****************************************************
Public Function GetTimeOver(flag)
Dim EndTime
If flag = 1 Then
EndTime=FormatNumber(Timer() - starTime, 6, true)
getTimeOver = " Processed in " & EndTime & " second(s)"
Else
EndTime=FormatNumber((Timer() - starTime) * 1000, 3, true)
getTimeOver =" 页面执行时间: " & EndTime & " 毫秒"
End If
End function
'调用方法
GetTimeOver(1) '页面执行开始时间
GetTimeOver(1) '页面共用了多长时间
相关文章
- 微博手机网页版快捷入口-微博手机版极速入口 01-16
- 动物塑形性格测试网站推荐-动物塑形性格测试链接大全 01-16
- ponytown如何快速登录-ponytown详细登录指南 01-16
- 163邮箱网页版直达入口-163邮箱官网登录快捷入口 01-16
- 歪歪漫画秋蝉怎么进入-秋蝉漫画土豪版免费阅读网站直达 01-16
- 夸克网盘网页版一键入口-夸克浏览器云存储极速登录直达 01-16