Fecha en textbox

Hola amigos
Quiero introducir una fecha en un texbox, que esta se visualice en formato dd/mm/aa y que se copie en una celda con ese mismo formato
Gracias por todo
Un saludo
Respuesta
1
Creo recordar que en la consulta que se perdió mencionabas que el ingreso lo harías sin separadores.
Entonces en Textbox1 se ingresa 110607
Y en Textbox2 se muestra 11/06/07 con esta rutina:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = (Mid(TextBox1, 1, 2) & "/" & Mid(TextBox1, 3, 2) & "/" & Mid(TextBox1, 5, 2))
End Sub
Siguiendo con el modelo de tu libro podes mostrarlo en el mismo textbox1, reemplazando Textbox2. value por textbox1. value=(Mid.....
y en el textbox2 mostrar la suma del combo:
Private Sub ComboBox1_Change()
Dim año As Integer
año = Year(TextBox1) + ComboBox1.Value
TextBox2.Value = Format(Left(TextBox1, 6) & año, "dd/mm/yy")
End Sub
Saludos
Elsa
PD) Te estoy enviando el libro a tu correo
http://es.geocities.com/lacibelesdepunilla/manuales_aplicaciones

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas