各位高手,VB表单运行时，如何将表单一文本框设置为日期型,例: 00/00/0000 （0表示空格）

[wave_f]

各位高手,当VB表单运行时，如何将表单一文本框设置为日期型,例: 00/00/0000 （0表示空格）

[ferrytang]

用maskedit
.mask="mm-dd-yyyy"

[yanz]

1. 文本框无法直接实现
你可将要显示的日期数据用函数处理为所需格式

format(日期型数据,"mm/dd/yyyy")

2. 改用MaskEdit控件
设置其Mask属性为 mm/dd/yyyy

[lihonggen0]

Public Sub DateText_Change(F As Form, DateText As String, nIndex As Integer)
Dim a, b, c As String
'---------------------------------------------------------------------------
'年份输入的控制
'---------------------------------------------------------------------------
'限制第一位必须为"1"或"2" ，也就说年份必须在1000-2999之间，够用吧！
If Len(F.Controls(DateText)(nIndex).Text) = 1 Then
If Left((F.Controls(DateText)(nIndex).Text), 1) <> "1" And Left((F.Controls(DateText)(nIndex).Text), 1) <> "2" Then
F.Controls(DateText)(nIndex).Text = ""
End If
End If
'限制第二、三、四位必须为“1、2、3、4、5、6、7、8、9、0”
If Len(F.Controls(DateText)(nIndex).Text) = 2 Or Len(F.Controls(DateText)(nIndex).Text) = 3 Or Len(F.Controls(DateText)(nIndex).Text) = 4 Then
If Right((F.Controls(DateText)(nIndex).Text), 1) <> "0" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "1" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "2" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "3" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "4" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "5" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "6" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "7" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "8" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "9" Then

F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 1)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If
End If
'当年份正确输入后就自动加上的“-”分隔符
If Len(F.Controls(DateText)(nIndex).Text) = 4 Then
F.Controls(DateText)(nIndex).Text = F.Controls(DateText)(nIndex).Text + "-"
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If

'---------------------------------------------------------------------------
'月份输入的控制
'---------------------------------------------------------------------------
If Len(F.Controls(DateText)(nIndex).Text) = 6 Then
If Right((F.Controls(DateText)(nIndex).Text), 1) <> "0" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "1" Then
If Right((F.Controls(DateText)(nIndex).Text), 1) = "2" Or Right((F.Controls(DateText)(nIndex).Text), 1) = "3" Or _
Right((F.Controls(DateText)(nIndex).Text), 1) = "4" Or Right((F.Controls(DateText)(nIndex).Text), 1) = "5" Or _
Right((F.Controls(DateText)(nIndex).Text), 1) = "6" Or Right((F.Controls(DateText)(nIndex).Text), 1) = "7" Or _
Right((F.Controls(DateText)(nIndex).Text), 1) = "8" Or Right((F.Controls(DateText)(nIndex).Text), 1) = "9" Then

a = Right((F.Controls(DateText)(nIndex).Text), 1)
F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), 5) + "0" + a + "-"
'如果这样，那下面一段if len(F.Controls(DateText)(nIndex).text)=7的判断自然就自动跳过去了。
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
Else '限制只能输入“0-9”
F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 1)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If
End If
End If
If Len(F.Controls(DateText)(nIndex).Text) = 7 Then
If Left(Right(F.Controls(DateText)(nIndex).Text, 2), 1) = "0" Then '如果月份第一位为“0”
If Right((F.Controls(DateText)(nIndex).Text), 1) <> "1" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "2" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "3" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "4" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "5" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "6" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "7" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "8" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "9" Then

F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 1)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
Else
F.Controls(DateText)(nIndex).Text = F.Controls(DateText)(nIndex).Text + "-" '当月份输入正确后自动加一个“-”分隔符
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
Exit Sub '少不了！如果少，那当月份为“01”时，紧接的If...End IF就
'成立，这样会在这里出现死循环，而出现溢出堆栈空间的错误！
'注：本程序好几个地方都可以用上Exit Sub，要加你自己补上吧！
End If
End If

If Left(Right((F.Controls(DateText)(nIndex).Text), 2), 1) = "1" Then '如果月份第一位为“1”
If Right((F.Controls(DateText)(nIndex).Text), 1) <> "0" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "1" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "2" Then

F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 1)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
Else
F.Controls(DateText)(nIndex).Text = F.Controls(DateText)(nIndex).Text + "-" '当月份输入正确后自动加一个“-”分隔符
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If
End If
End If

'---------------------------------------------------------------------------
'日期输入的控制。
'---------------------------------------------------------------------------
If Len(F.Controls(DateText)(nIndex).Text) = 9 Then
If Right((F.Controls(DateText)(nIndex).Text), 1) <> "0" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "1" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "2" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "3" Then

If Right((F.Controls(DateText)(nIndex).Text), 1) = "4" Or Right((F.Controls(DateText)(nIndex).Text), 1) = "5" Or _
Right((F.Controls(DateText)(nIndex).Text), 1) = "6" Or Right((F.Controls(DateText)(nIndex).Text), 1) = "7" Or _
Right((F.Controls(DateText)(nIndex).Text), 1) = "8" Or Right((F.Controls(DateText)(nIndex).Text), 1) = "9" Then

a = Right((F.Controls(DateText)(nIndex).Text), 1)
F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), 8) + "0" + a
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
'Exit Sub
'日期小于10时下面字符长度为10的判断当然是正确的。让它执行又如何？
Else
F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 1)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If
End If
End If

[lihonggen0]

'当要修改日期的最后一位时的控制。
If Len(F.Controls(DateText)(nIndex).Text) = 10 Then
b = Left(Right(F.Controls(DateText)(nIndex).Text, 5), 2) '取月份值，用于下面的日期正确性判断！
c = Left(F.Controls(DateText)(nIndex).Text, 4) '取年份值，用于下面的日期正确性判断！
If Right((F.Controls(DateText)(nIndex).Text), 1) <> "0" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "1" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "2" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "3" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "4" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "5" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "6" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "7" And _
Right((F.Controls(DateText)(nIndex).Text), 1) <> "8" And Right((F.Controls(DateText)(nIndex).Text), 1) <> "9" Then

F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 1)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If '限制非法字符的输入。
If Right(F.Controls(DateText)(nIndex).Text, 2) = "00" Then
F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 2)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If '限制日期不能为0
If (b = "01" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 31) Or _
(b = "03" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 31) Or _
(b = "05" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 31) Or _
(b = "07" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 31) Or _
(b = "08" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 31) Or _
(b = "10" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 31) Or _
(b = "12" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 31) Then

F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 2)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If '当月份为大月份时日期不能大于31。
If (b = "04" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 30) Or _
(b = "06" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 30) Or _
(b = "09" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 30) Or _
(b = "11" And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 30) Then

F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 2)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If '当月份为小月份时日期不能大于30。
If b = "02" Then
If Val(c) Mod 4 <> 0 And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 28 Then
F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 2)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If '非闰年日期不得超过28。
If Val(c) Mod 4 = 0 And Val(Right(F.Controls(DateText)(nIndex).Text, 2)) > 29 Then
F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 2)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If '闰年日期不得超过29。
End If '当月份为2时的日期正确性判断！
End If

'---------------------------------------------------------------------------
'当年月日输入后就不再接受其它字符了。方法如下：
'---------------------------------------------------------------------------
'第一种方法：
'在F.Controls(DateText)(nIndex)的属性窗口中设Maxlength=10
'第二种方法：
'Text2.Setfocus 即在适当的地方设一个跳转语句使下一个对象得到焦点。
'第三种方法：
If Len(F.Controls(DateText)(nIndex).Text) = 11 Then
F.Controls(DateText)(nIndex).Text = Left((F.Controls(DateText)(nIndex).Text), Len(F.Controls(DateText)(nIndex).Text) - 1)
F.Controls(DateText)(nIndex).SelStart = Len(F.Controls(DateText)(nIndex).Text)
End If
End Sub

[lihonggen0]

以上两段程序合起来 实现TEXTBOX输入日期
因为太长我发不出去

[liuliu680722]

maskedit控件
设置mask属性: ##/##/####

[Tadpole0510]

楼上的最简洁，不愧叫刘（简）洁

[ferrytang]

sql:
rs2.Open "select * from test2 WHERE SDATE='" & cdate(txtdate.text) & "'", cn2, adOpenDynamic, adLockOptimistic ,adcmdtext
access
rs2.Open "select * from test2 WHERE SDATE=#" & cdate(txtdate.text) & "#", cn2, adOpenDynamic, adLockOptimistic ,adcmdtext

[wave_f]

vb中如何写查询语句? 如果表的结构为
name,
address,
sdate,
memo

各们再帮帮忙!
Dim cn2 As New ADODB.Connection
dim rs2 as new ADODB.Recordset
cn2.Open "provider=msdasql;dsn=mqis;uid=aaa;pwd=abc;database=mdata;"
Set rs2.ActiveConnection = cn2
rs2.CursorLocation = adUseClient
rs2.Open "select from test2 WHERE SDATE='" & ???? & "'", cn2, adOpenDynamic, adLockOptimistic
Set datagrid1.DataSource = rs2

[shufeng]

最简单的方法是用VB自带的控件DTPicker

[vicon]

最简单的方法是用VB中的MaskEdit控件,特別安全!



























吐血推荐!!!!!!

[matboy]

赞同yanz(飞燕)的说法！我的程序中就是这么干的，很方便

[jamex]

MaskEdit

[wave_f]

vb中如何写查询语句? 如果表的结构为
name,
address,
sdate,
memo

各们再帮帮忙!
Dim cn2 As New ADODB.Connection
dim rs2 as new ADODB.Recordset
cn2.Open "provider=msdasql;dsn=mqis;uid=aaa;pwd=abc;database=mdata;"
Set rs2.ActiveConnection = cn2
rs2.CursorLocation = adUseClient
rs2.Open "select from test2 WHERE SDATE='" & ???? & "'", cn2, adOpenDynamic, adLockOptimistic
Set datagrid1.DataSource = rs2