Generar fechas
Hola.
Tengo un pequeño problema, estoy desarrollando un control de tarjeta con hora de entrada y hora salida mesual. Utilizo un formulario donde se ingresa el mes a través de un commandbuttom, cuando se selecciona el mes necesito generar las fechas de todo el mes asignándolas a un textbox, para luego ingresar las respectivas horas.
Ejemplo
textbox1 = 01/08/2008
textbox2 = 02/08/2008
.
.
textbox30= 30/08/2008
Tengo un pequeño problema, estoy desarrollando un control de tarjeta con hora de entrada y hora salida mesual. Utilizo un formulario donde se ingresa el mes a través de un commandbuttom, cuando se selecciona el mes necesito generar las fechas de todo el mes asignándolas a un textbox, para luego ingresar las respectivas horas.
Ejemplo
textbox1 = 01/08/2008
textbox2 = 02/08/2008
.
.
textbox30= 30/08/2008
1 Respuesta
Respuesta
1
pues lamentablemente como VBA no permite el uso de matrices de controles, lo único que se me ocurre es que hagas esto para cada uno; una vez que tenés el mes harías algo como
textbox1 = Cdate("01/" & mes & year(Now))
textbox2 = Cdate("02/" & mes & year(Now))
...
No se si te sirva, pero te da una primer idea
textbox1 = Cdate("01/" & mes & year(Now))
textbox2 = Cdate("02/" & mes & year(Now))
...
No se si te sirva, pero te da una primer idea
coleque la siguiente linea
Textfech1.Value = CDate("01/" & Cmdmes.Text & Year(Now))
Pero me sale un error en el textfech1.value, quede pillo.
Textfech1.Value = CDate("01/" & Cmdmes.Text & Year(Now))
Pero me sale un error en el textfech1.value, quede pillo.
Falta la segunda barra "/", fíjate con
textfech1.Value = CDate("01/" & cmdmes.text & "/" & year(now))
textfech1.Value = CDate("01/" & cmdmes.text & "/" & year(now))