| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2895 人关注过本帖
标题:如何验证TEXTBOX中输入的日期格式是否正确?
只看楼主 加入收藏
wensong
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2004-11-19
收藏
 问题点数:0 回复次数:5 
如何验证TEXTBOX中输入的日期格式是否正确?
如何验证TEXTBOX中输入的日期格式是否正确?
搜索更多相关主题的帖子: TEXTBOX中 日期格式 验证 输入 
2006-01-24 13:20
kfp_kaka
Rank: 4
等 级:贵宾
威 望:13
帖 子:353
专家分:0
注 册:2006-1-12
收藏
得分:0 
以下是引用leon2在2006-1-20 17:06:00的发言:
If Text1.Text Like "????-??-??" Then

'已经按照这样的格式写了,再来检测是否为数字,很巧妙的办法
Dim strTemp As String
strTemp = Left(Text1.Text, 4) & Mid(Text1.Text, 6, 2) & Right(Text1.Text, 2)

If IsNumeric(strTemp) Then
MsgBox "文字输入正确!", vbInformation
Else
MsgBox "输入的不是数字!", vbExclamation
End If
Else
MsgBox "没有按照 ****-**-** 的格式写!", vbExclamation
End If

爱一个人不一定要拥有她 拥有一个人就一定要好好的爱她
2006-01-24 14:49
softbt
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-1-24
收藏
得分:0 
好象不能判定超出12月和31日这样的日期
2006-01-25 14:36
kfp_kaka
Rank: 4
等 级:贵宾
威 望:13
帖 子:353
专家分:0
注 册:2006-1-12
收藏
得分:0 

根据你的具体需要在改一下代码就好拉,如果要判断是否超出12月
先把月份取出来,
strTemp = Mid(text1.text,6,2)

if strtemp > 12 then

MsgBox "月份超过12月"

end if
可以自己添的嘛


爱一个人不一定要拥有她 拥有一个人就一定要好好的爱她
2006-01-25 15:28
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 
[CODE]If Text1.Text Like "????-??-??" Then

'已经按照这样的格式写了,再来检测是否为数字
Dim strY As String, strM As String, strD As String, strTemp As String
strY = Left(Text1.Text, 4)
strM = Mid(Text1.Text, 6, 2)
strD = Right(Text1.Text, 2)

strTemp = Format(strY & strM & strD, "0000-00-00")

On Error GoTo Err
If CDate(DateSerial(CInt(strY), CInt(strM), CInt(strD))) = strTemp Then
MsgBox "文字输入正确!", vbInformation
Else
Err:
MsgBox "输入的不是数字或日期格式错误!", vbExclamation
End If
Else
MsgBox "没有按照 ****-**-** 的格式写!", vbExclamation
End If[/CODE]
2006-01-25 20:18
jackyhuang
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2006-1-20
收藏
得分:0 

能不能这样啊

Function validdate()

Dim sDate As Date

On Error GoTo Errhander

sDate = CDate(Text1.Text)
Exit Function
Errhander:
MsgBox "对不起,数据格式错误"
End Function


一个自学的,正在学的人
2006-01-29 19:10
快速回复:如何验证TEXTBOX中输入的日期格式是否正确?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021883 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved