|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Operações Matemáticas)
|
|
 |
Título da Dica: Sabar a idade da pessoa a partir do (dia, mes e ano)
|
 |
|
|
|
Postada em 7/7/2004 por Wes
Você precisará de uma DTPicker com o nome de ("dtNasc") e de uma Label com o nome de ("lblIdade")
no evento CloseUp da Dtpicker ou evento click coloque o seguinte código.
If dtNasc.Month < Val(Format(Now, "mm")) Then
lblIdade.Caption = Val(Format(Now, "yyyy")) - dtNasc.Year
ElseIf dtNasc.Month = Val(Format(Now, "mm")) And dtNasc.Day <= Val(Format(Now, "dd")) Then
lblIdade.Caption = Val(Format(Now, "yyyy")) - dtNasc.Year
Else
lblIdade.Caption = (Val(Format(Now, "yyyy")) - dtNasc.Year) - 1
End If
Vocês também podem fazer isto uzando uma "text" de vez de uma "DtPicker" é só adicionar este código no evento LostFocus da "text"
Qualquer dúvida me mande um e-mail.
Obs: DTPicker -- Microsoft Windows Common Controls-2 6.0 (mscomct2.ocx)
|
|
|
|
|
