Operar con fechas
Publicado por Eva (10 intervenciones) el 06/08/2004 00:39:26
Me gustaria saber como almacenar el calculo de la edad de una persona en un TextBox a partir de su fecha de nacimiento, la cual esta almacenada en un TextBox.
Mi planteamiento es el siguiente, pero no funciona.
Dim FecActual, FecNac As Date, Edad As Long
FecActual = Now
FecNac = CDate(TxtFecNac.Text)
Edad = (DateDiff(DateInterval.Day, FecNac, FecActual)) / 365
TxtEdad.Text = Edad & " años"
Mi planteamiento es el siguiente, pero no funciona.
Dim FecActual, FecNac As Date, Edad As Long
FecActual = Now
FecNac = CDate(TxtFecNac.Text)
Edad = (DateDiff(DateInterval.Day, FecNac, FecActual)) / 365
TxtEdad.Text = Edad & " años"
Valora esta pregunta


0