Obtener fecha nacimiento a partir de la edad!

[Sir Matrix]

Holaaa.. como puedo obtener la fecha de nacimiento a partir de a edad??

trabajo con visual Basic, aunque si alguien puede hacer la fórmula en otra cosa bienvenida sea....

Bueno, en realidad, sólo el año en qué aproximadamente nació


Saludos y gracias

[SunDarK]

Ummmm si he entendido bien la pregunta eso se podria hacer restando al año actual la edad que quieras,por ejemplo "2004 - 21 = 1983".para obtener el año actual en VB.NET lo haría con

Dim fecha as Integer
Dim añonac as Integer
Dim año As New DateTime
año = Now
Añonac= año.Year - "LAEDADQUEQUIERAS" -
Messagebox.Show("Nacio en el año " & AñoNac)

Asi creo que deberia funcionar,luego lo miro cuando vuelva de las practicas,o ya me cuentas,¿ok? si no es eso lo que buscas explicame mejor la pregunta jejeje,saludos

[Marval]

He probado con el código que te han dejado y no me funciona en VB 6.0, que creo que es el que utilizas. Yo pondría una caja de texto (Text1) y un botón (Calcular nacimiento), y lo haría así. En el codigo del botón pondría:


Private Sub Command1_Click()
Dim annonac As Integer
Dim anno As Integer
Dim edad As Integer
edad = Text1.Text
anno = 2004
annonac = anno - edad
MsgBox "Nacio en el año " & annonac
End Sub


Creo que si que hay una forma de que funcione, sin tener que meter 2004 o 2005... Pero no sé como, si lo encuentro ya te dijo.
Espero que te sirva de ayuda si es lo que querías.

[Marval]

creo que en vez de anno=2004 será algo así como anno= Date() o Date(now()). Prueba a ver.
Si te sirve de ayuda publicalo, me haria ilu poder ayudar.

[Marval]

Espero que sea esto lo que necesitabas, por lo poco que explicabas sí. Ya he encontrado la solución completa, si necesitas algo más enviame un mensaje privado.

Private Sub Command1_Click()
Dim fec As Variant
Dim nac As Integer
Dim anno1 As Integer
Dim anno As Variant
fec = Date
anno = Year(fec)
nac = Text1.Text
anno1 = anno - nac
MsgBox "Naciste en el año " & anno1
End Sub

[Sir Matrix]

Muchísimas gracias... y sí , en realidad estoy trabajando en visual 5, pero creo que me funcionará el código.. voy a probarlo y les cuento

[Sir Matrix]

me ha funcionado perfecto, muchas gracias

[Marval]

Gracias por haberme dado esa satisfación tan grande, de saber que te he podido ayudar. Es la primera vez
BESOS Y HASTA OTRA