iamlaosong文

想做一个简单的延时函数，于是想到VB中Time函数和Timer函数，二者都可以做延时函数，但略有不同。

Time是时间函数，取得是当前时间，如：15:16:14，和其它日期时间函数的内容差不多，如Now是获取系统当前日期和时间，如：2016-06-1515:23:34；Time只是获取系统的时间部分，如：15:23:34，不显示当前日期；Date只是获得系统的日期部分，如：2016-06-15，不显示当前时间。这些函数内容其实是个浮点数，如42536.6407523，其中的整数部分表示日期，为1900年1月1日到现在的天数（1900年1月1日的值是1.xxxxxxx），小数部分是时间，是一天中从0时到现在的时间，单位是天，即一天的时间为1，那个值就是现在已经过去的时间。如果按秒算就是从0时到现在经过的秒数除以一天的秒数（24*3600秒）得到的结果。NOW函数是整数小数都有（42536.6407523），Time值取小数部分（0.6407523），而Date函数只取整数部分（42536）。实际显示时，系统再把这些值转换为相应的日期时间格式。

Timer函数是定时器函数，其内容为从0时到现在的时间，但单位是秒，如56426.86，其最大值应该是24*3600，即86400秒。虽然其单位是秒，但其精度比这要高，老一点的电脑时钟中断为每秒18.2次，就是说时间间隔在0.055秒（55毫秒）左右，现在的机器一般都比这个高，具体多少需要测试。详细见：点击打开链接

所谓延时函数，就是取一时间值，然后取当前时间值和前一时间值之差，达到指定的值时延时结束。综上所述，Now、Time和Timer都可以做延时函数，但用Timer函数还是方便一点，因为其值的单位是秒。

顺便说一下Timer定时控件，主要用来做定时重复做的事情，当然也可以做延时函数，主要有Enable和Interval 两个属性。Enable属性用来开启和停止定时器，Interval 属性用来设定时间间隔，单位是毫秒，定时产生timer事件，在这个事件的响应过程中指定要做的事，如下所示：

Private Sub Timer1_Timer() 。。。。。。 End Sub