Formato fecha y extraer texto de fecha en un label
'Para Elsa', Hola necesitaría saber como programar un textbox con formato fecha y un label con el texto del día de la fecha en un userform ( ejemplo: textbox1: 05-11-15, label : miércoles), lo programe así pero no me funciona.
1 respuesta
Respuesta de Elsa Matilde
1
¡Gracias! Gracias Elsa por tu ayuda! Me sirvió mucho el ejemplo!
No entiendo tu valoración... tenías una gran confusión y además controles 'textbox' que no lo eran. Como no pude abrir tu libro te envié un ejemplo propio para que tomes las instrucciones que te hacían falta y coloques en el evento del 'Textbox' o el control que fuere.
Private Sub UserForm_Click() 'las siguientes instrucciones estarán en algún evento, puede ser initialize
'ejemplo: vuelca una fecha de la hoja al textbox para poder trabajarlo
TextBox1 = ActiveSheet.[B3]
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim fecha As Date
'el textbox presenta una fecha de la hoja y le cambia el formato a guiones
fecha = TextBox1
TextBox1 = Format(TextBox1, "dd-mm-yy") 'utilizá guiones en lugar de coma
' se calcula a qué día de la semana corresponde y lo vuelca en el Label
diasemana = Array("Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado")
nrodia = Application.WorksheetFunction.Weekday(fecha) - 1
Label1.Caption = diasemana(nrodia)
'también lo muestra en la hoja, celda C3
ActiveSheet.[C3] = diasemana(nrodia)
End Sub
Sdos!
