|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função para cálculo da idade
|
 |
|
|
|
Postada em 11/3/2003 por Ricardo
A função abaixo calcula a idade de uma pessoa com base numa data informada, que pode ser a data do sistema:
Public Function Idade(dtNasc As Date, dtHoje As Date) As Integer
' Função que calcula a idade de uma pessoa
If Month(Date) < Month(dtNasc) Or (Month(Date) = Month(dtNasc) And Day(Date) < Day(dtNasc)) Then Idade = Year(Date) - Year(dtNasc) - 1 Else Idade = Year(Date) - Year(dtNasc)
End Function
Para chamar a função:
Text1.Text = Idade("14/02/1980",Date) 'calcula a idade com base na data de hoje
Text1.Text = Idade("14/02/1980","13/01/1990") 'calcula a idade de uma pessoa no dia 13/01/1990
|
|
|
|
|
