vb6增加几百毫秒或增加几秒的代码怎么写？

来源：百度知道 编辑：UC知道 时间：2024/05/03 07:54:00
想用vb6把系统时间增加几百毫秒或增加几秒的代码怎么写？
具体设想是：一是取得系统时间，二是增加一定的毫秒或秒，再更改系统时间为增加数。

dim dt as date
'取系统时间
dt=time
'例如 加 5 秒
dt=dateadd("s",dt,5)
'修改系统时间
time=dt

'dateadd的用法
'dateadd(所增加的时间类型,时间,增加数量)

你计算好了新的系统时间后

用 shell "time" & " " & 新时间

就可以了!!!!!