标题:[求助]inputbox输入问题
只看楼主
appleuser
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2007-5-1
 问题点数:0 回复次数:7 
[求助]inputbox输入问题
请教:如何设定Inputbox里只能输入时间?

如果输入的不是时间格式,就会报错?

期待各位高手的回复!
搜索更多相关主题的帖子: inputbox 输入 Inputbox 会报 
2007-05-19 07:06
lll930720
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2006-11-14
得分:0 
用DTpicker控件
2007-05-19 07:48
ouzhiguang
Rank: 1
来 自:湖南长沙
等 级:新手上路
威 望:1
帖 子:240
专家分:0
注 册:2007-5-18
得分:0 

请问是什么样子的时间格式?知道格式才好做啊!

2007-05-19 18:33
appleuser
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2007-5-1
得分:0 
以下是引用ouzhiguang在2007-5-19 18:33:43的发言:

请问是什么样子的时间格式?知道格式才好做啊!

如:只可以输入12:20类似这样的时间格式(当然其它的时间也可以,最小单位为分钟。)

如果输入12:20这样的话就会报错(注意12:20与12:20中间的两点是不同的)

请问可以做到吗?


VB刚入门
2007-05-20 16:19
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
得分:0 
用isdate判断啊!

2007-05-20 16:30
ouzhiguang
Rank: 1
来 自:湖南长沙
等 级:新手上路
威 望:1
帖 子:240
专家分:0
注 册:2007-5-18
得分:0 

Private Sub Command1_Click()
If IsDate(Text1.Text) Then
Text2.Text = Mid(CDate(Text1.Text), 1, 5)
End If

End Sub
你看看吧,不过时间不多了!要停电了,明天接着弄!

2007-05-20 23:27
appleuser
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2007-5-1
得分:0 
以下是引用ouzhiguang在2007-5-20 23:27:00的发言:

Private Sub Command1_Click()
If IsDate(Text1.Text) Then
Text2.Text = Mid(CDate(Text1.Text), 1, 5)
End If

End Sub
你看看吧,不过时间不多了!要停电了,明天接着弄!

我的意思是用inputbox可以做到这个效果吗?


VB刚入门
2007-05-21 23:43
rockschen
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-5-21
得分:0 
我感觉Inputbox真是一个非常不好的东东,一两个数据好说,数据一多输入麻烦,输错了还要从来

2007-05-22 10:12



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-140576-1-1.html




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

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