edad en años meses y dias en vb.net
Dim fechanacimiento As Date = "10 / 1 / 1964"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add(Now & " HOY")
ListBox1.Items.Add(fechanacimiento & " FECHANACIMIENTO")
ListBox1.Items.Add(DateDiff(DateInterval.Year, fechanacimiento, Now) & " AÑOS")
ListBox1.Items.Add(DateDiff(DateInterval.Month, fechanacimiento, Now) & " MESES")
ListBox1.Items.Add(DateDiff(DateInterval.Day, fechanacimiento, Now) & " DIAS")
ListBox1.Items.Add(DateDiff(DateInterval.Hour, fechanacimiento, Now) & " HORAS")
ListBox1.Items.Add(DateDiff(DateInterval.Minute, fechanacimiento, Now) & " MINUTOS")
ListBox1.Items.Add(DateDiff(DateInterval.Second, fechanacimiento, Now) & " SEGUNDOS")
End Sub