Visual Basic.NET - Edad Con Meses

   
Vista:

Edad Con Meses

Publicado por Benjamin (3 intervenciones) el 26/07/2010 01:04:55
Saludos ¿como puedo calcular la edad con todo y meses?

¿O si es menor a 1 año poner solo los meses?

Gracias, por su ayuda.
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:Edad Con Meses

Publicado por Joan F (129 intervenciones) el 27/07/2010 11:57:00
Saludos,

Sería algo así:

Public Function EdadEnMeses() As String

Dim fechaInicial As Date = New Date(1980, 1, 1)
Dim fechaFinal As Date = New Date(2000, 1, 1)
Dim numeroDeMeses As Long

numeroDeMeses = DateDiff(DateInterval.Month, fechaInicial, fechaFinal)
If numeroDeMeses < 12 Then
Return numeroDeMeses.ToString & " meses"
Else
'el operador \ es la division entera
Return (numeroDeMeses \ 12) & " años" & IIf((numeroDeMeses Mod 12) = 0, "", " " & (numeroDeMeses Mod 12) & " meses")
End If

End Function
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