VERIFICAR A IDADE DA PESSOA

FUTURA 04/04/2005 11:17:07
#76526
Na verdade é para cálculo do salario familia, se o individuo completou 14 anos no referido mes, ainda paga, mas se ja passou um mes, não paga mais. Como achar estes cálculos, a partir da data de nascimento do mesmo.
USUARIO.EXCLUIDOS 04/04/2005 11:22:06
#76529 
Function Age(myDate As Variant) As Integer

    myDate = CDate(myDate)
    Dim Totdays As Long
    Dim Step1
   
    Totdays = DateDiff("y", myDate, Date) ' Total Number of days
    Step1 = Abs(Totdays / 365.25) ' Number of years
   
    If myDate < Date Then
        Age = Int(Step1)
    End If
    
End Function


txt_idade.text = Age(Data_Desejada)
Tópico encerrado , respostas não são mais permitidas
Voltar