Question

关于VB系统日期和时间

下面的程序怎样防止用户因在InputBox中乱输入而报错
Private Sub Command1_Click()
Dim strTmp As String
strTmp = InputBox("请输入新的系统日期:(yyyy-mm-dd)", "修改系统日期")
If strTmp <> "" Then
Date = CDate(strTmp)
MsgBox "新的系统日期为" + Str(Date)
End If
End SubPrivate Sub Command2_Click()
Dim strTmp As String
strTmp = InputBox("请输入新的系统日期:(hh-mm-ss)", "修改系统时间")
If strTmp <> "" Then
Time = CDate(strTmp)
MsgBox "新的系统时间为" + Str(Time)
End If
End Sub

Answer 1

Private Sub Command1_Click()
Dim strTmp As String
strTmp = InputBox("请输入新的系统日期:(yyyy-mm-dd)", "修改系统日期")
If strTmp <> "" And IsDate(strTmp) <> False Then
Date = CDate(strTmp)
MsgBox "新的系统日期为" + Str(Date)
End If
End Sub

Private Sub Command2_Click()
Dim strTmp As String
strTmp = InputBox("请输入新的系统日期:(hh-mm-ss)", "修改系统时间")
If strTmp <> "" And IsDate(strTmp) <> False Then
Time = CDate(strTmp)
MsgBox "新的系统时间为" + Str(Time)
End If
End Sub

Answer 2

输入框的Validate事件中检查是否合法，不合法提示错误，Cancel=true

Answer 3

可用 isdate(strTmp) 来判断是否日期格式