hour = 24
Dim lngTime As Long
lngTime = CLng(hour) * 60 * 60 '将小时转换为秒