Visual Basic para Aplicaciones - Calcular edad actual

Life is soft - evento anual de software empresarial
 
Vista:

Calcular edad actual

Publicado por César López (1 intervención) el 23/04/2007 22:35:05
Cacular la edad actual, conociendo la fecha de nacimiento sobre la fecha en curso.
me dé como resultado, años cumplidos y meses
De antemano muchas gracias
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:Calcular edad actual

Publicado por Valli (2 intervenciones) el 27/04/2007 12:06:59
Utiliza la función DateDiff.
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:Calcular edad actual

Publicado por lucho (4 intervenciones) el 16/05/2007 21:03:34
muchímas gracias ya lo tengo
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

RE:Calcular edad actual

Publicado por robert (1 intervención) el 07/06/2007 16:23:31
porfa nesecito el programa de el calculo de las edades en visual basic envienmelo porfa es de vida o muerte
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:Calcular edad actual

Publicado por ant (1 intervención) el 19/07/2007 17:20:19
programa para calcular la edad
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:Calcular edad actual

Publicado por luis ivan garcia (1 intervención) el 18/07/2009 17:41:21
porfavor nesecito la rutina de el calculo de las edades en visual basic ...dependiendo de la fecha que nacio ... se lo agradesco a cualquiera que pueda ayudarme....
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
sin imagen de perfil

RE:Calcular edad actual

Publicado por juan bautista (1 intervención) el 13/06/2012 18:13:32
esta bueno el programa¡¡¡¡
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:Calcular edad actual

Publicado por Lidia (1 intervención) el 20/07/2012 16:45:25
no pueo nesecito ayuda alguien m puee ayudar por favor....
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:Calcular edad actual

Publicado por Rafael (2 intervenciones) el 07/03/2014 18:27:30
Utilizas
Int(DateDiff(DateInterval.Day, <fechanacimiento>, Date.Now) / 365)
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:Calcular edad actual

Publicado por CAROL (1 intervención) el 14/09/2007 16:04:41
COMO HAGO UN EJERCIO PAERA CALCULAR LA EDAD EN VISUAL
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:Calcular edad actual

Publicado por the_harry (1 intervención) el 24/10/2007 06:07:35
como me puedes ayudar en un programa que calcule la edad y determine cual es el mayor,menor y intermedio
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:Calcular edad actual

Publicado por Jorge Hidalgo (1 intervención) el 11/07/2010 00:06:27
necesito calcular la edad
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:Calcular edad actual

Publicado por Rafael (2 intervenciones) el 07/03/2014 18:21:42
Si utilizas datediff es lo mismo que extraer el año y lo restas

utilizas mejor
Int(DateDiff(DateInterval.Day, Convert.ToDateTime(Alumno(6)), Date.Now) / 365)
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:Calcular edad actual

Publicado por hugo coca (1 intervención) el 27/05/2007 19:12:09
necesito un programa en visual basic que calcule la edad
de una persona, ademas que muestre su signo zodiacal


gracias
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:Calcular edad actual

Publicado por lucho (4 intervenciones) el 14/06/2007 22:35:24
Option Compare Database

Private Sub Comando4_Click()
Dim fechaing As Date
Dim Meses As String
fechaing = InputBox("Anote la fecha de ingreso")
Meses = DateDiff("m", fechaing, Date)
Meses = "Tiene:" & (Meses / 12) & "años y " & (Meses Mod 12) & "Meses"
[fechaingreso] = fechaing
[mes] = Meses
End Sub

Private Sub eliminar_Click()
fechaingreso = ""
mes = ""
End Sub
NOTA: ESTE PROGRAMA LO HICE A TRAVES DE ACCESS
OJALA TE SIRVA 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

RE:Calcular edad actual

Publicado por jesus  (2 intervenciones) el 08/05/2009 21:19:52
muchas gracias por ayudarme
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

signo zodiacal

Publicado por mauricio (1 intervención) el 01/04/2008 18:57:08
hey kiero una ayuda necesito hacer un programa q me calcule el signo zodiacal para una persona que kiera preguntar necesito hacer ese programa
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:signo zodiacal

Publicado por yense (1 intervención) el 01/07/2008 05:19:14
ta no vwo
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:signo zodiacal

Publicado por katty (2 intervenciones) el 23/07/2010 23:34:55
signo zodiacal
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:signo zodiacal

Publicado por mayra de jesus montes hernande (1 intervención) el 15/10/2010 05:17:35
necesito el codigo
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:signo zodiacal

Publicado por Astrid nazate (1 intervención) el 24/02/2011 04:31:34
hola, quisiera saber como calcular en signo zodiacal seleccionan dando desde un combo box el mes y el dia y segun eso me salga a que signo cooresponde
gracias!!
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:signo zodiacal

Publicado por katty (2 intervenciones) el 23/07/2010 23:34:58
signo zodiacal
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:signo zodiacal

Publicado por silvia (1 intervención) el 04/11/2008 18:22:07
necesito un programa en visual basica q calcule el signo del zodiaco.

Alguien me puede ayudar porfa.
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:signo zodiacal

Publicado por antonio (1 intervención) el 23/04/2009 01:56:24
me podrian enviar informacion sobre como crear el programa
gracias
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:signo zodiacal

Publicado por ARTURO (1 intervención) el 05/03/2010 17:32:04
necesito el programa
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:signo zodiacal

Publicado por jazmine (1 intervención) el 26/03/2010 18:21:51
quisiera saber como crear un programa que m diga cual es mi signo en visual basic poniendo di y luego mes n k naci
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

signo zodiacal

Publicado por Angelica Vega (2 intervenciones) el 06/03/2012 01:06:53
Ola me podrias decir como te ayudaron necesito hacer el mismo programa ayudame PORFAVOR me URGEEE!!!
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:Calcular edad actual

Publicado por Alex Peralta Vallejos (1 intervención) el 04/08/2007 04:35:35
mucho agradecere me puedan ayudar a generar un codigo fuente que me permita calcular la edad en: Años, Meses y Dias, por favor respodender a: [email protected].
Miles de Gracias por su AYUDA.
Alex
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:Calcular edad actual

Publicado por Jeffrey (1 intervención) el 17/09/2007 22:59:07
Private Sub CommandButton1_Click()
If Not IsDate(Me.TextBox1.Text) Then
Me.TextBox3.Text = ""
Me.lblError.Caption = "Digite una fecha válida"
Else
Me.lblError.Caption = ""
CalculaEdad (Me.TextBox1.Text)
End If
End Sub

Private Sub CalculaEdad(ByVal FNaci As Date)
Dim FAct As String
Dim Anios As String
Dim Meses As String
Dim Dias As String
Dim newday As String
Dim newmonth As String
Dim newyear As String

FAct = Format(Now, "dd/MM/yyyy")
FNaci = Format(FNaci, "dd/MM/yyyy")

'Calcula los años
Anios = DateDiff("yyyy", CDate(Format(FNaci, "dd/MM/yyyy")), CDate(FAct))
'Si el mes actual es menor que el mes de la fecha de nacimiento entonces
If Month(CDate(FAct)) < Month(CDate(FNaci)) Then
'Restele uno a los años
Anios = Anios - 1
newmonth = Month(CDate(FAct)) + 12
Else
'Deje el mes actual tal y como estan
newmonth = Month(CDate(FAct))
End If

'Si el mes actual es igual al mes de la fecha de nacimiento entonces
If Month(CDate(FAct)) = Month(CDate(FNaci)) Then
'Si el día de la fecha actual es menor al día de la fecha de nacimiento
If Day(CDate(FAct)) < Day(CDate(FNaci)) Then
'Restele uno a los años
Anios = Anios - 1
End If
End If

If Day(CDate(FAct)) < Day(CDate(FNaci)) Then
newday = Day(CDate(FAct)) + 30
newmonth = newmonth - 1
Else
newday = Day(CDate(FAct))
End If

Meses = newmonth - Month(CDate(FNaci))
Dias = newday - Day(CDate(FNaci))

If FNaci <= FAct Then
Me.TextBox3.Text = Anios & " Años, " & Meses & " Meses, " & Dias & " Dias."
Else
Me.TextBox3.Text = "Fecha Inválida"
End If

End Sub
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:Calcular edad actual

Publicado por gabriel (1 intervención) el 22/07/2008 23:34:44
Gracias, buscaba algo similar....muy bueno
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:Calcular edad actual

Publicado por leovardo (1 intervención) el 21/10/2007 04:07:21
ayudame cacular mi edad naci 1948-08-11
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:Calcular edad actual

Publicado por leonel flores (1 intervención) el 10/12/2008 17:11:33
quiero hacer un programa que calcule la edad, pero que me muestre en un combobox, pero que el año de nacimiento me la muestre en un combobox para que el usuario pueda elegir su año de nacimiento
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:Calcular edad actual

Publicado por jesus  (2 intervenciones) el 08/05/2009 21:16:27
en realidad necesito ayuda para yo guiarme para terminar mi pograma para una notas importante de mi semestre gracias
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:Calcular edad actual

Publicado por rocio (1 intervención) el 16/11/2009 18:56:54
Dim fecha As Date

fecha = "01/01/06"

MonthView1.Value = fecha
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:Calcular edad actual

Publicado por Carlos Garcia (1 intervención) el 04/10/2009 00:56:38
necesito un seudo para calcular la edad actual, en visual basic
gracias
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

Calcular edad actual

Publicado por Angelica Vega (2 intervenciones) el 06/03/2012 01:08:09
Ola podrias ayudarme tengo que hacer el mismo programa porfavor ayudame ME URGE! gracias
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

Calcular edad actual

Publicado por miguel noa (1 intervención) el 26/07/2015 05:11:53
calculo de la edad en años meses y dias exactos en visual basic 2010
por favor nesecito sus ayudas-- desde ya les agradesco

en text1: ingresar el dia de nacimiento de la persona
en text2: ingresar el mes de nacimiento de la persona
en text3: ingresar el año de nacimiento de la persona

y en el text4 mostar el año de la persona, los meses y los dias.
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
Imágen de perfil de JoaoM
Val: 55
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Calcular edad actual

Publicado por JoaoM (58 intervenciones) el 26/07/2015 20:16:17
Hola miguel noa

Interesado.

Muestra la macro para copiarla
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