Question

VB中,date型数据和single型数据如何相加?我希望single型按照秒(S)与date型相加。并且实现进位。

Answer 1

Private Sub Command1_Click()
Dim d As Date, s As Single
d = Now() '当前时间
s = CDate("0:0:10") '10秒。VB会自动转换为单精度型
d = d + s '日期型可以和单精度型直接相加
Print d '把当前时间增加10秒后打印出来
End Sub

追问

谢谢你~~·可是我直接相加之后，结果是年份增加了1，不是秒增加了1，这是为什么呀？

追答

你是怎么加的呢？给我看看

追问

Private Type t_Task
StartTime As Date
ADFre As Single
SamplePeriod As Single
Note As String

End Type

temp(i) = Task(i).StartTime + Task(i).SamplePeriod

追答

Task(i).SamplePeriod 代表的是秒数吗？
temp(i) = Task(i).StartTime + TimeSerial(0, 0, Task(i).SamplePeriod)

Answer 2

Private Sub Command1_Click()
Dim d As Date, s As Single
d = Now '当前时间
s = 10 '10秒
d = DateAdd("s", s, d) '按秒加
Print d '把当前时间增加10秒后打印出来
End Sub