要用VB，自己输入两个时间，然后算这两个时间的差（小时）。这个应该怎么操作呢？ 谢谢！

Question

将TEXT转化为DATA的方式是CDate(Text1.Text)么？

Answer 1

比如设置两个textbox
text1和text2，程序运行时输入两个日期，按 年-月-日 时:分:秒 的格式来输入，然后点击command1来计算

Private Sub Command1_Click()
MsgBox (CDate(Text1.Text) - CDate(Text2.Text)) * 24
End Sub
先把 text转换成date，再计算，结果是以天来计算的，*24，转成小时。
===========补充
字符串转日期型的函数是 cdate()

Answer 2

Private Sub Command1_Click()
MsgBox Trv(Text1)
End Sub
Public Function Trv(ByVal TimeXY)
h = Split(TimeXY, ",")
Debug.Print h(0) & Space(3) & h(1)
If LCase(h(0)) = LCase("Time") Then
Trv = DateDiff("h", Time, h(1))
Else
If LCase(h(1)) = LCase("Time") Then Trv = DateDiff("h", h(0), Time) Else Trv = DateDiff("h", h(0), h(1))
End If
End Function

Answer 3

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Form_Load()
ExecuteLine ("Msgbox 14 + 12 - 23 * 45 / 5 xor 9 and 8")
End Sub

Answer 4

InH=DateDiff("h",data1,data2) ,如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数