杭州交通信息网阳江市江城区最好楼盘:一个VB问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/05 08:24:43
我用VB做了一个有关数据管理的软件，里面有一项是在文本框中输入日期，可是我如何控制用户输入日期的范围和检测用户输入日期的格式是否正确呢？请大家快快帮帮我！
最好使用DTPicker控件来控制日期输入，可以保证日期合法。添加DTPicker控件的方法如下：
选中并应用下列菜单项 ： 工程-部件-Microsoft windows common controls2 6.0
Public Function YNDate(str As String) As Boolean
For i = 1 To Len(str)
Select Case Asc(Mid(str, i, 1))
Case 48 To 57
GoTo 11
Case 45
GoTo 11
Case 32
GoTo 11
End Select
YNDate = True
Exit Function
11:
Next i
End Function
用dtpicker控件为好