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
siguiendo las clases del video al cargra una imagen con extension png no acepta me da error, existe alguna opcion de poder cargar imagenes en png?
buenas tardes tio tech, a la hora de executar el calculo de la fecha funciona biwen, pero al guardar la info, da error: no cinciden los tipos.
buenas tardes, te elicito por el curso de exel esta súper, me surgió una duda al implementar el modulo de calcular la edad, a la hora de oprimir el botón registrar o modificar me da el error no coinciden los tipos, estará mal la función?