VBA Access - Calcula Idade - Calculate Age


Calendário Compacto para 2014


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, 

Inline image 1

Nenhum comentário:

Postar um comentário

diHITT - Notícias