Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
If Len(.Text) < 10 Then
Cancel = True
Else 'Kiểm tra tính hợp lệ của ngày tháng
Dim D%, Y%, M%
D = Left(.Text, 2)
M = Mid(.Text, 4, 2)
Y = Right(.Text, 4)
If DateSerial(Y, M, D) <> .Text Then Cancel = True
End If
End With
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
If Len(TextBox1.Text) >= 10 Then KeyAscii = 0
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With TextBox1
If Len(.Text) = 2 Then .Text = .Text & "/"
If Len(.Text) = 5 Then .Text = .Text & "/"
End With
End Sub
