Saltar al contenido

Sacar edad teniendo Fecha de nacimiento y Fecha de evaluación en diferentes formularios


Recommended Posts

Hola, como el titulo lo dice estoy teniendo un problema. Hace un mes que empece a incursionar en el mundo de VBA de excel y esta muy bueno, la cuestión es que como soy un iniciado y mi profesión no tiene nada que ver con la informática, me esta costando mucho. Bueno vayamos al grano.

Lo que quiero hacer es:

En un Cuadro de Texto de un formulario "X" pongo la fecha de nacimiento, mientras que en otro formulario "Y" tengo puesto es un label la fecha actual (que seria el día de la evaluación), a través de Date.

Necesitaría sacar la edad y que me la vuelque en otro label del formulario "Y" pero no se que estoy haciendo mal. Pongo el código que estoy haciendo:

 

Private Sub CalcularEdad() Dim FechaNacimiento, FechaEvaluacion, EdadFormatoFecha As Date

Dim EdadFormatoFecha As Integer

Dim Edad As Double

FechaNacimiento = "Y".txtFechaNacimiento

FechaEvaluacion = lbFechaEvaluacion

EdadFormatoFecha = DateDiff("d", FechaEvaluacion, FechaNacimiento)

Edad = EdadFormatoFecha / 365

End Sub

[code]

No se que estoy haciendo mal que no me sale en el label que yo quiero. No se si la formula esta mal o si que se vea en el label especifico esta mal.

Saludos!

Enlace a comentario
Compartir con otras webs

Debes anteponer el nombre del formulario seguido de un punto antes del nombre del control, pero sin comillas.

FechaNacimiento = Y.txtFechaNacimiento

Si Edad es un label del formulario "Y":

Y.Edad.Caption = EdadFormatoFecha / 365

Y para finalizar, si los formularios los muestras con la propiedad .ShowModal = True, no olvides poner una instrucción DoEvents antes de finalizar el procedimiento CalcularEdad, porqué si no, no refrescará los datos en el formulario "Y".

Saludos

Enlace a comentario
Compartir con otras webs

Muchas gracias por la respuesta, las comillas fueron puestas a proposito para remarcar que no se llamaba asi sino en un supuesto caso ahora agrego el caso real. ME estoy dando cuenta que es imposible pensar si no se es tangible a través de un código o del archivo en si para poder ayudarme. Mala mía.

Ya lo solucione de la siguiente forma:

 Private Sub CmBtEdad_Click()
Dim FechaEvaluacion As Date
Dim FechaActual As Integer


If txtFechaEvaluacion = "" Then
FechaEvaluacion = lbFechaActual
Else
FechaEvaluacion = txtFechaEvaluacion
End If

Edad = (DateDiff("d", fmlrDatosCliente.txtFechaNacimiento, FechaEvaluacion)) / 365
lbEdad = Round(Edad, 1)
End Sub
[/CODE]

Donde txtFechaEvaluacion es un textbox en el cual si la fecha de la evaluación había sido otro día anterior podia agregarla manualmente, y si era el mismo día que se estaba, digamos digitalizando, poner la fecha actual que la tengo en un label.

Con respecto a [b]DoEvents[/b] estuve leyendo en la ayuda de Excel pero no pude entender bien, creo que lo que hace es terminar un proceso de un formulario que es largo?

PD: hay algun código que al contar los años tenga en cuenta los años bisiestos? Porque la formula que puse crea un margen de error, ínfimo pero lo crea...

Saludos!

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 93 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • No va a ser necesario distinguir el tipo de proceso entre 1 y 2. Revisa el adjunto a ver si es eso lo que quieres. Function MediaAttention(mImp As Range, _ q25 As Range, q50 As Range, _ Optional q75 As Range, _ Optional q100 As Range) As Double '-- Opción 1 If q75 Is Nothing And q100 Is Nothing Then MediaAttention = q25 / q50 Exit Function End If '-- Opción 2 MediaAttention = ((0.25 * (q25 - q50)) / mImp) + _ ((0.5 * (q50 - q75)) / mImp) + _ ((0.75 * (q75 - q100)) / mImp) + _ (q100 / mImp) End Function   Media Attention Formula 1.2.xlsb
    • Gracias tomarse el tiempo de leer por responder Maestro @Antoni Adjunto el archivo con la idea a la que deseo llegar, sigo atento. Mil gracias por el tiempo y la ayuda brindada   Media Attention Formula 1.2.xlsb
    • He analizado la UDF y entiendo perfectamente lo que hace, lo que no entiendo es lo que pretendes hacer. Mejor sube un ejemplo resuelto de  como debería funcionar la UDF con los nuevos parámetros solicitados. 
    • Gracias, ya lo conseguí solucionar
    • Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.- Colocar 2 al principio de la función y después seleccionar las 5 celdas correspondientes (Rango continuo o discontinuo) Espero me puedan ayudar y/o orientar al respecto, quedo atento para cualquier duda, de antemano les agradezco cualquier ayuda brindada. Mil Gracias!! Media Attention Formula 1.1.xlsb  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.