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!

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

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!