VBA中的Timer函数用法_vbs

第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函数返回一秒的小数部分。

以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索vba
timer
vb中timer函数的用法、vba timer函数、vba mid函数用法、vba split函数用法、vba dir函数用法,以便于您获取更多的相关知识。

时间: 2024-11-13 06:48:19

VBA中的Timer函数用法_vbs的相关文章

vc中SendMessage自定义消息函数用法实例_C 语言

本文实例讲述了vc中SendMessage自定义消息函数用法,分享给大家供大家参考.具体如下: SendMessage的基本结构如下: 复制代码 代码如下: SendMessage(     HWND hWnd,  //消息传递的目标窗口或线程的句柄.     UINT Msg, //消息类别(这里可以是一些系统消息,也可以是自己定义,下文具体介绍,)     WPARAM wParam, //参数1 (WPARAM 其实是与UINT是同种类型的,   //在vc编译器中右键有个"转到WPARA

golang中strconv.ParseInt函数用法示例_Golang

本文实例讲述了golang中strconv.ParseInt函数用法.分享给大家供大家参考,具体如下: golang strconv.ParseInt 是将字符串转换为数字的函数,功能灰常之强大. 参数1 数字的字符串形式 参数2 数字字符串的进制 比如二进制 八进制 十进制 十六进制 参数3 返回结果的bit大小 也就是int8 int16 int32 int64 func ParseInt(s string, base int, bitSize int) (i int64, err erro

php中mt_rand()随机数函数用法_php技巧

本文实例讲述了php中mt_rand()随机数函数用法.分享给大家供大家参考.具体分析如下: mt_rand() 使用 mersenne twister 算法返回随机整数. 语法:mt_rand(min,max) 说明:如果没有提供可选参数 min 和 max,mt_rand() 返回 0 到 rand_max 之间的伪随机数,例如想要 5 到 15(包括 5 和 15)之间的随机数,用 mt_rand(5,15). 在 3.0.7 之前的版本中,max 的含义是 range,要在这些版本中得到

php中Array数组函数用法详解(1/2)

简介:本次介绍的是PHP手册中用来对数组进行各种操作的系统函数,可以说数组在PHP中有重要的作用,因此函数也是灰常多,下面天涯把最常用的进行详细说明. array_change_key_case - 返回字符串键名全为小写或大写的数组     array array_change_key_case ( array $input [, int $case ] ) $case 可为 CASE_UPPER 或 CASE_LOWER(默认)      代码如下 复制代码 <?php     $phpha

vbs中的LoadPicture函数示例_vbs

示例: LoadPicture函数 选择图片 [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 不过这个函数有个漏洞,可以探测电脑上存在的文件名.2004年的漏洞,微软现在也没补,示例: [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

php中ftp_chdir() ftp_cdup()函数用法

若成功,则返回 true.否则返回 false.如果切换目录失败,php教程 还会发出一条警告. 语法 ftp_chdir(ftp_connection,directory)参数 描述 ftp_connection 必需.规定要使用的 ftp 连接(ftp 连接的标识符). directory 必需.规定要切换到的目录. */ //设置基础连接 $conn_id=ftp_connect($ftp_server); //用指定用户名密码登录到ftp服务器 $login_result=ftp_log

Thinkphp模板中截取字符串函数用法

英文字符可用形如  代码如下 复制代码 {$vo.title|substr=0,5} 如果是中文字符thinkphp提供了msubstr如下  代码如下 复制代码 function msubstr($str, $start=0, $length, $charset="utf-8″, $suffix=true)使用如下 {$vo.title|msubstr=0,21} 这也算是一篇简单的php教程吧,如果有兴趣可以收藏哦

javascript 中string.lastIndexOf()函数用法介绍

语法 var index = array.lastIndexOf(searchElement[, fromIndex]); 参数说明 searchElement: 要搜索的元素 fromIndex : 开始搜索的位置,默认为数组的长度(length),在这样的情况下,将搜索所有的数组元素.如果传入的值大于或等于数组的范围(length),将搜索整个数组,如果传入的值小于 0 ,将返回 -1 ,在这样的情况下,搜索操作将不被执行.搜索是反方向进行的. 功能说明 比较 searchElement 和

ASP自定义函数,仿VBA中域函数 DLookup

函数 Function dlookup(strFieldName, strTableName, strWhere, objConn)    '参考Access VBA 中的Dlookup函数    '由于环境不同,加了ObjConn参数,直接将Adodb.connection直接调进来    Dim strsql    Dim rs    Set rs = server.CreateObject("adodb.recordset")    '下面要调用外部的一个自定义函数 checks