怎么样让时间减去一秒,如11:11:11-11秒=11:11:00


If zf = True Then
    TimeFromNet = Time() + DateAdd("s", CInt(cj), 0)
Else
    TimeFromNet = Format(Time() - DateAdd("s", CInt(cj), 0), "hh:mm:ss")
End If

得出的结果timefromnet是字符串形,用时需要转换成日期形.因为变量类型不对,害我找了半天错误,

[[it] 本帖最后由 zfc123 于 2008-9-30 16:46 编辑 [/it]]

設計時間好像是:1000是一秒吧
讓就讓祂一次減1000不就是一秒了

我的程序是这样的,先获取internet时间,然后和电脑时间对比,如果电脑时间快就减去他们间的时间差,如果电脑时间慢就加上他们之间的时间差,然后显示在程序里.

可以這樣啊
if internet<time or internet>time then
internet =time
endif
結果是一樣的

呵呵,可能你没听明白,我是想让本地时间等于internet时间,但又不想改变系统时间,只想在程序里使用标准internet时间,所以我想计算出两个时间差,如果internet时间快则本地时间加上时间差,否则减去时间差.
因程序需要(定时间在程序执行时可能会暂停),我要在定时器里每一秒取一次本地时间,然后加或减时间差,等于internet时间.

为什么不直接用internet时间而非要用本地时间加上偏移量？

如果每秒都从internet上获取时间,过程时间太长
如果用定时器每秒加一,可以程序执行时,有的时候定时器暂停了,也就是导致加一变慢了
如果仅用本地时间,可又不能与internet时间同步
无奈只能选择,每秒取本地时间加偏移量.

说明一下,程序是用网页控件自动提交的,在提交后网页跳转时,如果网速慢就造成定时器不动几秒.