Foxtable(狐表)用户栏目专家坐堂 → [求助]时间函数,狐表如何表达


  共有1728人关注过本帖树形打印复制链接

主题:[求助]时间函数,狐表如何表达

帅哥哟,离线,有人找我吗?
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:962 积分:8505 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]时间函数,狐表如何表达  发帖心情 Post By:2016/9/3 14:23:00 [只看该作者]

求助老师,下面这段VBA代码,作用是什么,狐表如何表达?
......
 Dim t  
  t = Timer
  Do While Timer - 0.5 < t
    DoEvents
  Loop

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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编辑过]

 回到顶部