Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

VBA Access - Calcula Idade - Calculate Age

Inline image 1

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

LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine