Postada em 18/09/2008 09:17 hs
Caro LCRamos.
Agradeço sua ajuda e atenção. Tentei colocar o que vc me passou em um formulário que estou usando. Tentei modificá-lo. Não consegui, pois como já comentei, não entendo de accesses, sou curiosa, simplesmente vou tentando até conseguir ou desistir.
Teria como vc olhar para mim a função que estou tentando modificar e me dizer se tem como?
Se puder fazer esse favor eu agradeço... se não der, td bem.. agradeço por já ter me respondido anteriormente.
A função é a seguinte:
Function CalculaIdade(DataNasc As Date)
If IsNull(DataNasc) Or DataNasc > Date Then
MsgBox "Data de nascimento inválida!", vbExclamation, "Erro"
Exit Function
End If
Dim Anos, meses, dias
Dim iAnos As Double, iMeses As Double, Intervalo As Double
' O resultado da diferença está em Double
Intervalo = Date - DataNasc
' Um ano tem exatamente 365,25 dias
iAnos = Intervalo / 365.25
Anos = Int(iAnos)
iMeses = (iAnos - Anos) * 12
meses = Int(iMeses)
dias = DateDiff("d", DateSerial(DatePart("yyyy", DataNasc) + Anos, DatePart("m", DataNasc) + meses, Day(DataNasc)), Date)
If dias = 30 Then
dias = 0
meses = meses + 1
End If
If meses = 12 Then
meses = 0
Anos = Anos + 1
End If
Fim:
If Anos > 1 Then
Anos = Anos & " anos "
Else
Anos = Anos & " ano "
End If
If meses > 1 Then
meses = meses & " meses "
Else
meses = meses & " mês "
End If
If dias > 1 Then
dias = dias & " dias"
Else
dias = dias & " dia"
End If
CalculaIdade = Anos & meses & dias
End Function
|
