HackPR.NET

Webmasters => Programación General => Topic started by: ricron28 on March 05, 2007, 11:01:48 PM

Title: Ayuda, operaciones con fechas en VB
Post by: ricron28 on March 05, 2007, 11:01:48 PM
Hola, tengo un problema con el manejo de fechas de visual basic, lo que necesito es calcular la edad de una persona mediante la fecha de nacimiento, lo he intentado de muchas formas pero no he podido.

primero valido que la fecha ingresada en una caja de texto se válida, luego convierto en formato de fecha (CDATE) la caja de texto (creo que hasta ahi voy bien), el problema esta en que cuando resto esa fecha con la fecha actual no me da un valor verdadero, por ejemplo resto 28/03/1984 con la fecha actual y me devuelve un valor falso (debería ser 23 ¿Cierto?).

Agradezco de antemano a la persona(s), que me puedan ayudar con la funcion.
Title: Re: Ayuda, operaciones con fechas en VB
Post by: apholion on March 12, 2007, 09:09:43 PM
Hola, espero que te sirva esto, te dara la diferencia pero en dias:

Private Sub Command1_Click()
Dim t0 As Variant, t1 As Variant

    'Text1 Tendrá una fecha anterior
    'Text2 tendrá la nueva fecha
    t0 = DateValue(Text1)
    t1 = DateValue(Text2)
    Label1 = t1 - t0

End Sub

Private Sub Form_Load()
'Para probar la diferencia de fechas
    Text1 = DateValue(Now)
    Text2 = DateValue(Now + 10)
   
    Command1_Click

End Sub