Calculo Idade

[rodrigo maximo]

Por favor alguém pode medar uma dica de como calcular idade ano mes dia obrigado

[Jonathan Queiroz]

Não entendi sua dúvida

Seria pegar o dia/mes/ano de uma data separadamente ?

dim data as date
dim dia,mes as byte
dim ano as integer
data=#31/01/2009#
dia=day(data)
mes=month(data)
ano=year(data)

[kuroi]

veja se esse tópico ajuda: http://scriptbrasil.com.br/forum/index.php?showtopic=108907

[rodrigo maximo]

Eu tenho um campo Maskedit que recebera a data de nascimento, gostaria de colocar nos lostfocus para um label receber a idade, no formato ano mes e dia ( 2ano 6mes 6dia)

obrigado pela atenção

[kuroi]

ta la o codigo no tópico q eu passei.

é so chamar aquela funcao no lostfocus, ue.

[Nenel]

Caro amigo!

Tenho uma função que exibe a idade no formato A/M/D

Talvez goste... Seque codigo Abaixo...

Para utilizar o Codigo, coloque-o num Modulo

Função DMA Sem Bug

Public Enum TipoRet
 RetAno = 0
 RetDMA = 1
End Enum

Public Function UltimoDiaMes(Data As String) As String
 Dim Mes As String
 If Data = "" Then
   Exit Function
 End If

 Mes = Month(Data)
 Select Case Val(Mes)
   Case 1
     UltimoDiaMes = "31"
   Case 2
     If Val(Year(Data)) Mod 4 = 0 Then
       UltimoDiaMes = "29"
     Else
       UltimoDiaMes = "28"
     End If
   Case 3
     UltimoDiaMes = "31"
   Case 4
     UltimoDiaMes = "30"
   Case 5
     UltimoDiaMes = "31"
   Case 6
     UltimoDiaMes = "30"
   Case 7
     UltimoDiaMes = "31"
   Case 8
     UltimoDiaMes = "31"
   Case 9
     UltimoDiaMes = "30"
   Case 10
     UltimoDiaMes = "31"
   Case 11
     UltimoDiaMes = "30"
   Case 12
     UltimoDiaMes = "31"
 End Select
End Function


Public Function DMA(DataNasc As String, DataRef As String, Optional
Ret As TipoRet = 0, Optional Bissexto As Boolean = True) As String
 Dim Ano As String, Mes As String, Dia As String
 Dim Resto As String


 If Bissexto = True Then
   If DataNasc = "" Or DataRef = "" Then
     DMA = "#Erro#"
     Exit Function
   Else
     Debug.Print DateDiff("d", DataNasc, DataRef)
     Ano = Int(DateDiff("d", DataNasc, DataRef) / 365)
     Resto = (DateDiff("d", DataNasc, DataRef) / 365) - Ano
     If Resto = 0 Then
       Mes = "0"
       Dia = "0"
     Else
       Mes = Int((Resto * 365) / 30)
       Resto = ((Resto * 365) / 30) - Mes
       If Resto = 0 Then
         Dia = 0
       Else
         Dia = Round((Resto * 30), 2)
       End If
     End If
   End If
 Else
   Dim Di, Mi, Ai
   Dim Df, Mf, Af
   Dim Dr, Mr, Ar

   Di = Left(DataNasc, 2)
   Mi = Mid(DataNasc, 4, 2)
   Ai = Right(DataNasc, 4)

   Df = Left(DataRef, 2)
   Mf = Mid(DataRef, 4, 2)
   Af = Right(DataRef, 4)

   If Di > 30 Then
     Di = "30"
   End If

   If Df > 30 Then
     Df = "30"
   End If

   If Mf < Mi Then
     If Df < Di Then
       Dr = 30 - (Di - Df)    '***
       Mr = (12 - (Mi - Mf)) - 1 '***
       Ar = (Af - Ai) - 1    '***
     ElseIf Df = Di Then
       Dr = 0              '***
       Mr = (12 - (Mi - Mf)) '***
       Ar = (Af - Ai) - 1  '***
     Else
       Dr = (Df - Di)
       Mr = (12 - (Mi - Mf)) '***
       Ar = (Af - Ai) - 1
     End If

   ElseIf Mf = Mi Then
     If Df < Di Then
       Dr = 30 - (Di - Df)
       Mr = 11
       Ar = (Af - Ai) - 1
     ElseIf Df = Di Then
       Dr = 0
       Mr = 0
       Ar = Af - Ai
     Else
       Dr = (Df - Di)
       Mr = 0
       Ar = (Af - Ai)
     End If
   Else
     If Df < Di Then
       Dr = (30 - Di) + Df
       Mr = (Mf - Mi) - 1
     ElseIf Df = Di Then
       Dr = 0
       Mr = Mf - Mi
     Else
       Dr = (Df - Di)
       Mr = (Mf - Mi)
     End If
     Ar = (Af - Ai)

   End If

 Ano = Ar
 Mes = Mr
 Dia = Dr

 End If



 If Ano > 1 Then
   Ano = Ano & " Anos"
 Else
   Ano = Ano & " Ano"
 End If

 If Mes > 1 Then
   Mes = Mes & " Meses"
 Else
   Mes = Mes & " Mês"
 End If

 If Dia > 1 Then
   Dia = Dia & " Dias"
 Else
   Dia = Dia & " Dia"
 End If

 If Ret = RetAno Then
   DMA = Ano
 Else
   DMA = Ano & ", " & Mes & ", " & Dia
 End If

End Function

Editado Outubro 5, 2009 por kuroi
Adicionar tag CODE