VBscript 中自时间戳以来的秒数？

Question

我的时间戳是这样的：21-04-2021 12:34:14.733。我想将自 Timestamp 以来的秒数写入变量。

如何转换时间戳，以便此代码有效？

Dim Seconds
Seconds = DateDiff("s",TimeStamp,Now())

Answer 1

考虑一个变量my_var：
DateDiff("s",#21-04-2021 12:34:14.733#,my_var)
或者如果你想摆脱毫秒：
格式（现在（），“dd/mm/yyyy hh:mm:ss”）

Answer 2

我会使用 Left 函数只从 Seconds 中获取前两个字符。

Dim Seconds
Seconds = DateDiff("s",TimeStamp,Now())
Seconds = Left(Seconds,2)
Msgbox(Seconds)

Answer 3

我发现这个解决方案有效。现在我得到自 TimeStamp 以来的秒数。拆分从源时间戳中删除毫秒。

Dim Sp, Seconds
Sp = Split(TimeStamp, ".")
TimeStamp = Sp(0)
Seconds= DateDiff("s",TimeStamp, Now())

Seconds since Timestamp in VBscript?