UC知道关于VB时间范围的问题
来源：百度知道 编辑：UC知道 时间：2024/06/05 05:52:38
要求当时间不再范围内时用msgbox提示，我的代码如下，但是运行时好像这段代码没起作用。。。
Dim Dat As String
Dim aDat As Date
Dim bDat As Date
Dat = Format(DateDTPicker.Value, "YYYY-MM-DD")
aDat = #11/4/2007#
bDat = #11/19/2007#
If (CDate(Dat) < aDat) Or (CDate(Dat) > bDat) Then
MsgBox "超出时间范围，请重新选择时间！"
Exit Function
End If
DTpicker的作用是选择一个时间，2楼把dat赋了一个定值，问题可能就在这，DTpicker的问题，请教高手
Dim Dat As String
Dim aDat As Date
Dim bDat As Date
Dat = Format(DateDTPicker.Value, "YYYY-MM-DD")
aDat = #11/4/2007#
bDat = #11/19/2007#
If (CDate(Dat) < aDat) Or (CDate(Dat) > bDat) Then
MsgBox "超出时间范围，请重新选择时间！"
Exit Function
End If
DTpicker的作用是选择一个时间，2楼把dat赋了一个定值，问题可能就在这，DTpicker的问题，请教高手
可能是DateDTPicker控件的问题。
我用下面得代码测试并没有问题！
Dim Dat As String
Dim aDat As Date
Dim bDat As Date
aDat = #11/3/2007#
Dat = Format(aDat, "YYYY-MM-DD")
aDat = #11/4/2007#
bDat = #11/19/2007#
If (CDate(Dat) < aDat) Or (CDate(Dat) > bDat) Then
MsgBox "超出时间范围，请重新选择时间！"
End If
那句 Exit Function 是什么？哪来的啊？