标题: [贴士] 计时 [打印本页]

---

作者: SzAngel    时间: 2007-8-30 18:35     标题: 计时

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

VBS do_time=timer
Delay 2000
VBS C=timer-do_time
VBSCall Call MessageBox(timer)
VBSCall Call MessageBox(do_time)
VBSCall Call MessageBox(c)

---

作者: 支持紫苑    时间: 2007-10-5 19:00

???想说什么??

---

作者: xgpolaris    时间: 2007-10-30 15:12

//设定do_time等于 timer（从0.00到现在的 秒数）
VBS do_time=timer

//延迟2秒
Delay 2000

//设定C等于 timer（从0.00到目前秒数：过了2秒的时间）减去上一次记忆的变量do_time
VBS C=timer-do_time

//弹出消息显示timer值（这个timer不等于这段程序里面的第一个timer，也不等于第二个timer，而是当前的）
VBSCall Call MessageBox(timer)

//弹出消息显示变量do_timer值
VBSCall Call MessageBox(do_time)

//弹出消息显示变量C的值
VBSCall Call MessageBox(c)


其实这里把time  换成 now  则更好
VBS do_time=now
Delay 2000
//datediff函数   s表示秒  可以用m来表示分
C=DateDiff("s",do_time,now)
VBSCall Call MessageBox(now)
VBSCall Call MessageBox(do_time)
VBSCall Call MessageBox(c)



解释不正确的地方欢迎指正－－－北极星

[ 本帖最后由 xgpolaris 于 2007-10-30 15:35 编辑 ]

---

作者: csnun    时间: 2007-11-17 18:58

脚本好难啊  看不懂

---

欢迎光临 紫菀论坛 (http://bbs.szyin.com/)

Powered by Discuz! 7.1