• 站长首页
  • 源码下载
    HTML源码 ASP源码 PHP源码 .NET源码 其他源码
  • 网站模板
    织梦模板 ShopEx模板 EcShop模板 Discuz模板 帝国模板
  • 网站素材
    字体下载 高清图片 网页模板 PSD素材 矢量素材
  • 网页特效
    返回顶部 图片代码 鼠标特效 菜单导航 HTML5特效
  • 站长资讯
    网站运营 建站经验 搜索优化 互联网
快捷导航

源码下载

HTML源码 ASP源码 PHP源码 .NET源码 其他源码

网站模板

织梦模板 ShopEx模板 EcShop模板 Discuz模板 帝国模板

网站素材

字体下载 高清图片 网页模板 PSD素材 矢量素材

网页特效

返回顶部 图片代码 鼠标特效 菜单导航 HTML5特效

站长资讯

网站运营 建站经验 搜索优化 互联网

软件下载

电脑软件 安卓软件 苹果软件

建站功具

WEB服务器 网页设计 FTP工具 建站辅助

建站教程

服务器教程 CMS教程 脚本之家
重庆站长网

模板

投稿中心
  • 站长首页

  • 源码下载

  • 网站模板

  • 网站素材

  • 网页特效

  • 站长资讯

  • 软件下载

  • 建站功具

  • 建站教程

  • 程序插件

  • 网站基础

  • 帮助中心

HTML源码 ASP源码 PHP源码 .NET源码 其他源码 微擎微赞模块 VIP源码 淘宝客网站源码

织梦模板 ShopEx模板 EcShop模板 Discuz模板 帝国模板 WordPress主题

字体下载 高清图片 网页模板 PSD素材 矢量素材 免抠素材 PPT模板

返回顶部 图片代码 鼠标特效 菜单导航 HTML5特效 css3特效 日期时间 选项卡_滑动门 HTML5小游戏 动画效果 表单按钮 jquery特效

网站运营 建站经验 搜索优化 互联网

电脑软件 安卓软件 苹果软件

WEB服务器 网页设计 FTP工具 建站辅助

服务器教程 CMS教程 脚本之家

shopex插件 Discuz!插件 pjblog插件 wordpress插件 dedecms插件 ecshop插件 phpcms插件

HTML教程 DIV&CSS Javascript/Ajax Dreamweaver XHTML教程 W3C教程

关于我们 联系我们 广告服务 投稿指南 友情链接 积分金币规则 加入VIP会员

当前位置:首页 > 建站教程 > 脚本之家 > VBA中的Timer函数用法

VBA中的Timer函数用法

时间:2019-11-14 11:54:43 来源:用户投稿 浏览: 次

第1.40例 Timer 函数

一、题目:

  要求编写一段代码,运用 Timer 函数来计算本代码运行所化的时间。

二、代码:

Sub 示例_1_040()
  Dim t, i&, a
  t = Timer
  For i = 1 To 1000000
    a = a + i
  Next i
  MsgBox Timer - t & "秒"  ‘返回0.046875秒
End Sub

三、代码详解

1、Sub 示例_1_040():宏程序的开始语句。宏名为示例_1_040。
2、Dim t, i&, a  :声明变量t,a 均为可变型变量,i为长整型变量。
3、t = Timer :把系统的时间赋给变量t。
4、For i = 1 To 1000000 :从1 到 1000000循环。
5、a = a + i :把a+i的值赋给变量a,实际上是一个累加的过程。
6、MsgBox Timer - t & "秒" :利用消息框显示现在的时间减去前面设置的时间,得到运行整个代码所化的时间。

Timer 函数

返回一个 Single,代表从午夜开始到现在经过的秒数。

Timer
说明
Microsoft Windows中,Timer函数返回一秒的小数部分。

   
    (作者:佚名)   /   责任编辑:重庆站长网
    • 上一篇:vbs枚举进程 vbs列出进程的详细列表
    • 下一篇:window通过vbs+bat实现自动在后台运行nodejs application
    • 收藏
    • 打印

    相关阅读

  • 查询电脑开关机时间的vbs代码

    这篇文章主要介绍了查询电脑开关机时间的vbs代码,需要的朋友可以参考下...

  • 2019-11-14

    资讯列表

    • 服务器教程
    • CMS教程
    • 脚本之家

    文章排行榜

    • 1 解决DedeCms5.7更新软件不能上传图片问题
    • 2 移动web端屏幕适配(rem)
    • 3 百科外链时代终结:百度百科参考资料全部替换为百度快照
    • 4 网页文本排版知识:为正确的内容使用恰当的标签
    • 5 大型强子对撞机首次加速原子:达到接近光速
    • 6 自身产品运营数据分析的5个步骤
    • 7 企业网站制作怎么样可以把握好用户体验
    • 8 精选15个国外CSS框架
    • 9 桌面远程管理程序使用教程(最新)
    • 10 CSS基础入门教程之CSS id 选择器

    热门标签

      魅族 魅族Flyme Facebook Facebook隐私 Faceboo 漏洞 HTTPS 融360 叶大清 融360法人 PHP8 JIT 荣耀10i 京东 京东汽车 汽车 电商 Ruby 恶意后门 代码
    返回
    顶部
    关于我们 联系我们 广告服务 投稿指南 友情链接 积分金币规则 加入VIP会员

    备案号:

    Copyright © 2016-2018 重庆站长网 版权所有

    ×