Office中国论坛/Access中国论坛

标题: [求助]日期代码 [打印本页]

作者: yanchangshan 时间: 2005-4-13 21:04
标题: [求助]日期代码
请问我在一个输入窗口中设置日期格式为如：2005/4/5 中午 12：40

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

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

[em03][em03][em03]

作者: yanchangshan 时间: 2005-4-13 21:38
请大家注意一下我的日期格式是带时间的

作者: wu8313 时间: 2005-4-14 03:45
我自己感觉很奇怪，怎么代码这么长？晕!

如果你打算使用一个日历控件的话，关于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-14 03:56
怎么附件传不上？

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

作者: wu8313 时间: 2005-4-14 03:58
标题: 回复：（yanchangshan）[求助]日期代码
例子在这儿。
还是传不上！

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

作者: wu8313 时间: 2005-4-15 05:56
再传一次。[attach]9934[/attach]

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

作者: yanchangshan 时间: 2005-4-15 17:02
THANK YOU VERY MUCH!

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

作者: wu8313 时间: 2005-4-16 19:22

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

THANK YOU VERY MUCH!

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

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)