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?
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?