小蚱蜢的教材:VB日期问题
来源:百度文库 编辑:高校问答 时间:2024/10/04 06:23:53
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定义为日期而不是整型