Insertar Calendario para insertar fecha en Formulario VBA
Inserta un calendario en un formulario VBA y calcular la edad automáticamente al seleccionar una fecha de nacimiento, puedes seguir los siguientes pasos:
Imágenes para el botón Calendario.
Instalación del Calendario de Andrés Rojas Moncada
Primero Vamos a descargar el calendario haciendo clic aquí.
Calcular la edad con la fecha de nacimiento
La siguiente función nos va servir para calcular la edad y lo vamos a poner en un módulo.
Function getEdad(fechaNacimiento As Date)
Dim año, mes, dia As Integer
Dim dAño, dMes, dDia As Integer
año = Format(fechaNacimiento, "yyyy")
mes = Format(fechaNacimiento, "m")
dia = Format(fechaNacimiento, "d")
dAño = Format(Date, "yyyy") - año
dMes = Format(Date, "mm") - mes
dDia = Format(Date, "d") - dia
If dMes < 0 Or (dMes = 0 And dDia < 0) Then
dAño = dAño - 1
End If
getEdad = dAño
End Function
Llamar a función para calcular la edad
El siguiente código va en el Textbox1 del evento Change para poder calcular la edad de manera automática.
Private Sub TextBox1_Change()
Dim edad As Integer
edad = getEdad(Me.TextBox1)
Me.TextBox2.Value = edad
End Sub
Buenas tardes
No me permite abrir el accero para descarga del calendario
Hola, saludos no me permite descargar el calendario ayuda por favor!!!
Hola, solo tengo una duda si en un formulario tengo otro recuado donde debo poner fecha, puedo usar el mismo formulario de calendario?, y como lo haria?
estoy atorado en lo mismo 🙁
Al ejecutar el calendario se produce un error, se me marca en amarillo Private Sub Txt_Fecha_Nace_Change() y el cursor se detiene en getEdad destacandolo en azul, Por qué será??
Private Sub Txt_Fecha_Nace_Change()
Dim edad As Integer
edad = getEdad(Me.Txt_Fecha_Nace)
Me.Txt_Edad.Value = edad
End Sub
Hola -El Tío Tech- en el caso de tener dos o mas botones para Calendario de que modo puedo hacerle para que no ponga la misma fecha en todos?? de Antemano Muchas gracias y que buenos videos Felicidades.
Hola El Tío Tech en el caso de tener dos o mas botones para Calendario de que modo puedo hacerle para que no ponga la misma fecha en todos?? de Antemano Muchas gracias y que buenos videos Felicidades.
¿Cómo pondría dos ( 2 ) Calendarios en el mismo formulario?
Tengo la misma duda, tengo 3 fechas en el mismo formulario
Hola Tio Tech no Pude descargar el Calendario de Andres Rojas
Al dar doble clik en el calendario,para seleccionar la fecha, solo en text_FechaNac me pone «//», y no la fecha como deberia ser.Cual es la razon?
Buenos días. Primero felicitarle por el gran trabajo que ha hecho con estos cursos.
Mi pregunta es: habría la posibilidad de acceder al calendario que tiene en la lección » Insertar Calendario para insertar fecha en Formulario VBA».
Muchas gracias….
Buenos días. 1º Felicitarle por el gran trabajo de los cursos, que son de gran utilidad.
Habría alguna manera de poder bajar el calendario, pq el en el enlace no hay manera de descargarlos.
Gracias … Un saludo
Buenas tardes Tio Tech, no se puede descargar el calendario xq el dueñlo lo bloqueo, no se si podra descargar de otra forma, ya que desde la pagina del autor esta restringido solo para miembros.
Buenas tardes, antes que nada muchisimas gracias por toda la informacion y por los tutoriales, me han facilitado mucho. en este momento estoy teniendo un problema al utilizar la macro del calendario, al colocarla en un proyecto mio, me arroja un error en una de las lineas del programa y tambien en la funcionabilidad del calendario, solamente salen 99 en los dias del calendario y al ejecutar el depurador dice
SelectedMonth = scrlMonth.value
SelectedYear = cmbYear.value (esta es la linea que señala con el error)
sale un mensaje de un error «13»
Buenos dias y un feliz año para ustedes, agradecidos por las aclaratorias
Como puedo hacer para que el calendario (modulo) pueda ser aplicado a diversos formularios ?