以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]时间函数,狐表如何表达  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90018)

--  作者:jyh7081
--  发布时间:2016/9/3 14:23:00
--  [求助]时间函数,狐表如何表达
求助老师,下面这段VBA代码,作用是什么,狐表如何表达?
......
 Dim t  
  t = Timer
  Do While Timer - 0.5 < t
    DoEvents
  Loop

--  作者:狐狸爸爸
--  发布时间:2016/9/3 14:59:00
--  
Dim t as date = date.now
Do While (date.now-t).totalseconds < 0.5
    application.DoEvents
Loop
[此贴子已经被作者于2016/9/3 15:02:43编辑过]