Edad

Sub preguntas()
    Dim nombre As String
    Dim nacim As Date
    Dim anyos As Single
    Dim meses As Single
    Dim dias As Single
    Dim i As Integer
    Dim bisiestos As Integer
    bisiestos = 0
    nombre = InputBox("escribe tu nombre")
    nacim = InputBox("fecha de nacimiento")
    for i=Year(nacim) To Year(Now)
    	if i Mod 4=0 and i Mod 100<>0 or i Mod 400=0 then
    		bisiestos = bisiestos + 1
    	end if
    next i
    anyos = Int(Int(Now - nacim) / 365)
    meses = Int((Now - nacim) / 365 * 12) - Int(anyos * 12)
    dias = Int((Now - nacim) - anyos*365 - (meses/12)*365) - bisiestos
    MsgBox nombre & " tienes " & anyos & " años cumplidos " & meses & "  meses " & dias & "  dias"
                
End Sub