Poner formato fecha en txtbox
Buenos días.
Tengo un formulario con varios txtbox, pero uno de ellos es para introducir una fecha y he estado buscando y no consigo dar con ello
El txtbox al que hacemos referencia se llama txtfecha, por favor indicame que código he de poner para que el txtfecha tenga formato fecha ( dd/mm/aaaa) y haga como hacen las celdas de excel y lo automatice, es decir que si yo le pongo 11/11/11 el me lo traduzca a 11/11/2011 y de un mensaje de error si se pone mal
Un saludo y gracias
Tengo un formulario con varios txtbox, pero uno de ellos es para introducir una fecha y he estado buscando y no consigo dar con ello
El txtbox al que hacemos referencia se llama txtfecha, por favor indicame que código he de poner para que el txtfecha tenga formato fecha ( dd/mm/aaaa) y haga como hacen las celdas de excel y lo automatice, es decir que si yo le pongo 11/11/11 el me lo traduzca a 11/11/2011 y de un mensaje de error si se pone mal
Un saludo y gracias
1 respuesta
Respuesta de bacter582
1
Como estas amigo, disculpa la demora he estado bastante ocupado y han salido bastantes preguntas.
Amigo prueba este código
Te limita a solo introducir números y el cracter "/"
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim ch As String
Select Case Len(textbox1.Value)
Case Is < 2
ch = Chr$(KeyAscii)
If Not ((ch >= "0" And ch <= "9")) Then
KeyAscii = 0
End If
Case 2
If KeyAscii <> 47 Then KeyAscii = 0
Case Is < 5
ch = Chr$(KeyAscii)
If Not ((ch >= "0" And ch <= "9")) Then
KeyAscii = 0
End If
Case 5
If KeyAscii <> 47 Then KeyAscii = 0
Case Is < 11
ch = Chr$(KeyAscii)
If Not ((ch >= "1" And ch <= "9")) Then
KeyAscii = 0
End If
End Select
End Sub
Amigo prueba este código
Te limita a solo introducir números y el cracter "/"
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim ch As String
Select Case Len(textbox1.Value)
Case Is < 2
ch = Chr$(KeyAscii)
If Not ((ch >= "0" And ch <= "9")) Then
KeyAscii = 0
End If
Case 2
If KeyAscii <> 47 Then KeyAscii = 0
Case Is < 5
ch = Chr$(KeyAscii)
If Not ((ch >= "0" And ch <= "9")) Then
KeyAscii = 0
End If
Case 5
If KeyAscii <> 47 Then KeyAscii = 0
Case Is < 11
ch = Chr$(KeyAscii)
If Not ((ch >= "1" And ch <= "9")) Then
KeyAscii = 0
End If
End Select
End Sub
