VBA Access - Calcula Idade - Calculate Age

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

A função a seguir calcula a idade a partir de uma data que você informar, ou a partir de uma data que passarmos como parâmetro.

Function CalculateAge (DOB As Variant, Optional vDate As Variant) As Variant

If IsDate(vDate) = False Then vDate = Date

If IsDate(DOB) = True Then

      Let CalculateAge = DateDiff("yyyy", DOB, vDate) + _

            (DateSerial(Year(vDate), Month(DOB), Day(DOB)) > vDate)

Else

      Let CalculateAge = Null

End If

End Function

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: Access, calculate, age,