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
felicitaciones, solo que acerca mas la pantalla a la hora de mostrar los códigos en los cuales trabajas, se ven muy muy pequeña la letra en los vídeos. gracias