Question

请教一个VB6问题：一个command一个timer一个text，实现点击command，text里面显示当前时间+6小时后的时间

也就是text里面显示6个小时候的时间（当前时间加上6个小时），在线等待哪位大大给我解惑，最好有具体的代码

Answer 1

Private Sub Command1_Click()
Dim hours, dates
hours = Split(Time, ":")(0) + 6
dates = Split(Date, "/")(2)
If hours >= 24 Then hours = hours - 24: dates = dates + 1
Text1 = Now & " | " & Split(Date, "/")(0) & "/" & Split(Date, "/")(1) & "/" & dates & " " & hours & ":" & Split(Time, ":")(1) & ":" & Split(Time, ":")(2)
End Sub