| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 780 人关注过本帖
标题:[求助]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
快速回复:[求助]inputbox输入问题
数据加载中...
 
   



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

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