Question

问个VB高手时间相减的问题

比如text1.text=14:40:51,text2.text=14:42:51,我想让text2.text-text1.text,从而得到120s,这怎么实现呢?

Answer 1

dim a as date
dim b as date
a=cdate(text1.text)
b=cdate(text2.text)
text3.text=datediff("s",a,b)

这样就能得到一个整数.

Answer 2

Dim a As Date
Dim b As Date

a = "14:40:51"
b = "14:42:51"

MsgBox DateDiff("s", a, b)

Answer 3

用vb时间的加减：
Dim a,b,c As Date
a=text1
b=text2
c = TimeValue(text1) - TimeValue(text2)

Answer 4

Dim a,b As Date
Dim c As integer
a = "14:40:51"
b = "14:42:51"
c = DateDiff("s", a, b)
其中c为结果