#EVBA #Excel #VBA Sub idade()

Sheets(1).Cells(1, 1) = "Data de Nascimento"
Sheets(1).Cells(1, 2) = "Idade"


Dim idade As Integer
Dim anos As String

data_fim = Sheets(1).Cells(2, 2)
data_ini = Sheets(1).Cells(2, 1)

idade = (data_fim - data_ini) / 365.25 'Int(aux / 12) + 1

anos = idade & " anos"
Sheets(1).Cells(2, 3) = anos

End Sub

свернуть