时间比较。。。。

2009-06-16 09:20:44 59 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

uniapp 使用摄像头 live-pusher （APP） uniapp 中开发 app 时使用live-pusher踩过的坑阅读详情

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

...全文