Question

vb 关于时间的加减问题

如果我现在有一个时间，他不是我的系统时间，是一个过去的时间，比如1991年3月15日23时，我现在想让每个这个时间加上三小时，得到相应的时间，就是1991年3月16日02时，还有很多这样的时间要加三小时，请问这样怎么写

Answer 1

Private Sub Command1_Click()
Print DateAdd("h", 3, CDate("1991-3-15 23:0:0"))
End Sub

追问

您好，谢谢您的回答，是这样的，我写了一个程序，这个程序已经提取了我需要修改的时期，我用date表示好了，还有时次，用kk表示，就是其实我想要把date+kk这个时间加三个小时，我不知道怎么写，麻烦您帮忙再看一下，谢谢

追答

Private Sub Command1_Click()
Print DateAdd("h", kk, CDate(date))
End Sub

Private Sub Command1_Click()
Print DateAdd("h", kk, CDate(date))
End Sub

追问

Dim riqi, kk, y, s As String
riqi = "20130701"
kk = "03"
y = riqi + kks
s = 3
Print DateAdd("h", s, CDate(y))
是这样的意思，就是kk小时，我想要的是2013070103加三个小时，s即为加的三小时，但是我这样写是报错的，请帮忙改正，谢谢

追答

Private Sub Command1_Click()
Dim riqi, kk, y, s
riqi = "2013-07-01"
kk = "03:0:0"
y = riqi & " " & kk
s = 3
Print DateAdd("h", s, CDate(y))
End Sub

Answer 2

dim CurTime as Date
dim NextTime as Date
NextTime =Format(DateAdd("h", 3, CurTime ),"hh:mm:ss")

Answer 3

 d1 = Date$ 
 d2 = DateAdd("h", 3, d1)