VB里的时间怎么弄

来源：百度知道 编辑：UC知道 时间：2024/06/18 12:28:44
比如现在是18：00：00
利用dateadd 给该时间加了 9小时，那么时间变成了"1:00:00"
可是我想加一个显示日期的
比如显示18：00：00的时候，后面显示今天的日期
加了9小时后，就变成第二天的日期
这个应该怎么弄？
我的意思是，后面加一个日期显示，比如今天是1月13日，就显示1月13日
加了9小时后自动变成1月14日

比如你想将它显示到text1那麼你可以写成
dim newdate as string
newdate=dateadd("h",9,now)
text1=format(newdate,"hh:mm:ss ") & year(newdate) & "年" & month(newdate) & "月" & day(newdate) & "日"

DateAdd("h", 9, Now())

Private Sub Command1_Click()
Print "现在时间："; Now; " "; "九小时后："; DateAdd("h", 9, Now())
End Sub

Private Sub Command1_Click()
Dim FirstDate As Date ' 声明变量。
Dim IntervalType As String
Dim Number As Integer
Dim Msg
Text1 = Time$ & " " & Date$
IntervalType = "h" ' "m"指定以“月份”作为间隔。
FirstDate = InputBox("确定日期")
Number = InputBox("确定增加的小时")
Number = Number + Mid(Time$, 1, 2)
Text2 = DateAdd(IntervalType, Number, FirstDate)
End Sub