INTRODUCIR FECHAS EN TEXTBOX CON UNA CALENDARIO
Publicado por Quico (106 intervenciones) el 17/03/2019 18:21:58
Hola a todos,
Tengo un 'UseForm' con 2 TextBox dónde quiero colocar una fecha de entrada y salida.
He creado un segundo 'UseForm' con un calendario después de activar en los controles adicionales de 'Cuadro de Herramientas', la opción: Microsoft MonthView Control 6.0.
Esta 'UseForm' la he llamado MiCalendario.
He conseguido que al poner el ratón sobre la 'TextBox1' o 'TextBox2', se me abra el Calendario (MiCalendario)
Sin embargo, no consigo que al marcar una fecha, esta se guarde, cerrando el calendario y mostrando en el 'TextBox' la fecha seleccionada en formato (dd/mm/yyyy).
Esta es la macro que he incluido en el 'TextBox1'
¿Alguien podría decirme como hacerlo?
A ser posible, me gustaría tener un TexBox3 que me dijera cuantos días laborables hay entre ambas fechas.
Lo que en excel sería la fórmula TexBox3 =DIAS.LAB(TextBox1,TextBox2).
Pero bueno, esto último no es prioritario...me conformo con introducir las fechas a través de un calendario.
Tengo un 'UseForm' con 2 TextBox dónde quiero colocar una fecha de entrada y salida.
TextBox1 ---> Fecha de Inicio
TextBox2 ---> Fecha finalizacion
TextBox2 ---> Fecha finalizacion
He creado un segundo 'UseForm' con un calendario después de activar en los controles adicionales de 'Cuadro de Herramientas', la opción: Microsoft MonthView Control 6.0.
Esta 'UseForm' la he llamado MiCalendario.
He conseguido que al poner el ratón sobre la 'TextBox1' o 'TextBox2', se me abra el Calendario (MiCalendario)
Sin embargo, no consigo que al marcar una fecha, esta se guarde, cerrando el calendario y mostrando en el 'TextBox' la fecha seleccionada en formato (dd/mm/yyyy).
Esta es la macro que he incluido en el 'TextBox1'
Private Sub TextBox1_Enter()
MiCalendario.Show
ActivateCell.Value = DateClicked
Unload MiCalendario
End Sub
MiCalendario.Show
ActivateCell.Value = DateClicked
Unload MiCalendario
End Sub
¿Alguien podría decirme como hacerlo?
A ser posible, me gustaría tener un TexBox3 que me dijera cuantos días laborables hay entre ambas fechas.
Lo que en excel sería la fórmula TexBox3 =DIAS.LAB(TextBox1,TextBox2).
Pero bueno, esto último no es prioritario...me conformo con introducir las fechas a través de un calendario.
Valora esta pregunta
0