时间比较。。。。
可爱的小莱 2009-06-16 09:20:44 Private Sub Form_Load()
cboEnd.Text = ""
cboStart.Text = ""
Dim i%
For i = 0 To 24
cboEnd.AddItem i & ":" & "00"
cboStart.AddItem i & ":" & "00"
Next
End Sub
Private Sub cmdTimeComp_Click()
Dim dteEnd As Date, dteSart As Date
Dim n%
If Trim(cboEnd.Text) = "" Then MsgBox "不能为空": Exit Sub
If Trim(cboStart.Text) = "" Then MsgBox "不能为空": Exit Sub
dteEnd = CDate(Trim(cboEnd.Text))
dteStart = CDate(Trim(cboStart.Text))
n = DateDiff("n", dteEnd, dteSart)
If n < 0 Then
Print "结束时间:" & dteEnd & " 比 " & "开始时间:" & dteStart & "晚。。"
ElseIf n = 0 Then
Print "结束时间:" & dteEnd & " 和 " & "开始时间:" & dteStart & "相同。。"
ElseIf n > 0 Then
Print "结束时间:" & dteEnd & " 比 " & "开始时间:" & dteStart & "早。。"
End If
End Sub