[求助]日期代码

yanchangshan

请问我在一个输入窗口中设置 日期格式 为如：2005/4/5 中午 12：40

我现在要做的就是在我输入日期的时候 如果日期（日期也按照这种格式输入）大于当前系统的日期时间 就跳出错误

请教大家这个代码怎么写？



[em03][em03][em03]

yanchangshan

请大家注意一下我的日期格式是带时间的

wu8313

我自己感觉很奇怪，怎么代码这么长？晕!

如果你打算使用一个日历控件的话，关于IsDate(Me.文本7.Value)的判断就可以免掉了，（代码少些了，锯掉那个select case 的条件转向句子）.

不必担心用户输入“2005-12-45”这样一个非法的日期格式。

Private Sub 命令12_Click()
Dim a As Integer

a = IsDate(Me.文本7.Value)

If Not IsNull(Me.文本7) Then

Select Case a

Case -1
If IsDate(Me.文本7.Value) = True Then

If Me.文本7 > CDate(Date) Then

MsgBox "错误：大于当前系统日期"

Else

   If Not IsNull(Me.文本7) And Me.文本7 <= CDate(Date) Then
   
   MsgBox "输入正常"
   
   End If
   End If
   End If
   
Case 0

   MsgBox "错误的日期!" & vbCrLf & "“" & Me.文本7.Value & "”"
   
   End Select
   End If
End Sub

另外，您所说的我的这个日期是包含时间的。不太明白。

[此贴子已经被作者于2005-4-13 19:54:40编辑过]

wu8313

怎么附件传不上？

[此贴子已经被作者于2005-4-13 19:56:51编辑过]

wu8313

例子在这儿。
还是传不上！

[此贴子已经被作者于2005-4-13 19:58:45编辑过]

wu8313

再传一次。

[此贴子已经被作者于2005-4-14 21:56:03编辑过]

yanchangshan

THANK YOU VERY MUCH!

我說的包含時間 是 因為大於當前時間也為錯誤

wu8313

以下是引用yanchangshan在2005-4-15 9:01:42的发言：


THANK YOU VERY MUCH!

我說的包含時間 是 因為大於當前時間也為錯誤

1、那么这个包含时间的文本框的应该是需要及时刷新的。

2、这个时间是怎样录入的呢？我不明白。