Visual Basic.NET - Operar con fechas

 
Vista:

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"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Operar con fechas

Publicado por Christian (174 intervenciones) el 06/08/2004 03:41:49
Hola,

Fijate si te sirve esto
Dim FecActual, FecNac As Date, Edad As Long
FecActual = Now
FecNac = CDate(TxtFecNac.Text)
A1 = mid(fecactual,len(fecactual)-3.4)
A2 = mid(fecnac,len(fecnac)-3.4)
edad = val(a1) - val(a2)
txtedad.text = edad & " años"
'luego de misma manera podes chequear el mes y sumarle un año mas segun corresponda.

Saludos.
Christian

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Operar con fechas

Publicado por Edgar (1501 intervenciones) el 06/08/2004 14:14:14
Hola

Porque no usas DateInterval.Year en vez de DateInterval.Day??, Ahora seria bueno que mencionaras por qué no sirve.... para ver en que te podemos ayudar, porque por lo que veo, no deberias tener ningún problema

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar