高考问答高院申诉:VB日期问题
来源：百度文库 编辑：高考问答 时间：2024/05/05 19:47:04
Dim date1, date2 As Integer
date1 = #7:00:00 PM#
date2 = #3:00:00 PM#
If date1 > date2 Then
MsgBox CStr(date1)
Else
MsgBox CStr(date2)
End If
为什么MsgBox显示的为1
date1 = #7:00:00 PM#
date2 = #3:00:00 PM#
If date1 > date2 Then
MsgBox CStr(date1)
Else
MsgBox CStr(date2)
End If
为什么MsgBox显示的为1
Dim date1, date2 As Integer
问题在这里，换成
Dim date1, date2 As date
用整数也可以不过需要使用CDate而不是CStr
Private Sub Command1_Click()
Dim date1, date2 As Date
date1 = #7:00:00 PM#
date2 = #3:00:00 PM#
If date1 > date2 Then
MsgBox CDate(date1)
Else
MsgBox CDate(date2)
End If
End Sub
Dim date1, date2
date1 = #7:00:00 PM#
date2 = #3:00:00 PM#
If date1 > date2 Then
MsgBox CStr(date1)
Else
MsgBox CStr(date2)
End If
这样就可以了，错误原因在于你把date2定义为整数了
是啊，日期不可以用int的，你用var什么来着的定义下。
hihunk 说的对
应该把date1,date2定义为日期而不是整型