有没有在Text中日期的输入控制代码

Question

写个函数吧，因为不知道你的日期格式
就按照你的日期格式把TEXT里的字符串切开了比一下
当然比较灵活了，一般这么搞很不方便
要输入日期的时候，还是分别给三个TEXT比较好

Answer 1

一个Text里有两个"-"格开，输完四位年，自动跳至下一格，或用鼠标、方向件控制

Answer 2

dtpicker 控件在common controls-2里

Answer 3

用DTPICKER不好吗？非要自己写？

Answer 4

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
    '当要修改日期的最后一位时的控制。
    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