Ola pessoal estou com um probleminha...
Estou fazendo uma sub da seguinte forma
Sub VerificaIdade()
Dim Meses As Byte, DtNasc As Date, DtAtu As Date
Dim Ano As Byte, vAno, vMes As String
If mskDtNasc.Text = " / / " Then
txtIdade.Text = Empty
Exit Sub
Else
DtNasc = CDate(Format(mskDtNasc.Text, "dd/mm/yyyy"))
DtAtu = CDate(Format(Now, "dd/mm/yyyy"))
If mskDtNasc.Text > DtAtu Then
MsgBox "Data de admissão incorreta !", vbCritical, "Atenção"
TxtAdm.SetFocus
Else
Meses = DateDiff("m", DtNasc, DtAtu)
Ano = Meses / 12 <======================= A duvida
txtIdade.Text = Ano
End If
End If
End Sub
O que esta ocorrendo é o seguinte se eu coloco 25/04/1987, (210 Meses) ele me tras a idade de 18 anos e na verdade é 17.
So que a divisao se fizer na calculadora 210 / 12 = 17,5 como que eu tiro essa diferença pra fica so o 17
