|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Datas/Números/Strings)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Função para cálculo da idade
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|