Significado dessa formula


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Significado dessa formula

Ewerton Mendes
não registrado

ENUNCIADA !

Postada em 25/03/2011 11:58 hs

Private Sub DataNascimento_LostFocus()
Dim VARPACDIAS As Variant
Dim VARPACMESES As Variant
Dim VARPACIDADE As Variant
Dim VARPACANOS As Variant
Olá pessoal, gostaria de entender a expressão abaixo, ela retorna a idade da pessoa em meses, porém não consigo entender como ela funciona, preciso alterá-la para que retorne a idade em anos, desde já agradeço a ajuda, segue a expressão abaixo:

If Not IsNull(DataNascimento) Then
VARPACDIAS = (Date) - DataNascimento
VARPACMESES = (Month(VARPACDIAS) - 1)
VARPACANOS = (Year(VARPACDIAS) - 1900) * 12 + VARPACMESES
VARPACIDADE = CInt(VARPACANOS)
Idade = VARPACIDADE
End If

End Sub

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 25/03/2011 16:08 hs

se vc quiser em anos, sem usar essa função soemnte seria
idade= (ano_maior - ano do nascimento )

ADRIANO2605

CAMPO GRANDE
MS - BRASIL

ENUNCIADA !

Postada em 28/03/2011 19:13 hs

Está função é bem completa para isso q vc quer fazer:
Public Function diferença_datas(Dtini As Date, Dtfin As Date)
   If IsNull(Dtini) Or Dtini > Now Or Dtini > Dtfin Then
      MsgBox "Data inválida !", vbCritical, "Data Inválida"
      Exit Function
   End If

   diferenca = Dtfin - Dtini

   xAnos = diferenca / 365.25
   anos = Int(xAnos)
   xMeses = (xAnos - anos) * 12
   meses = Int(xMeses)

   dias = DateDiff("d", DateSerial(DatePart("yyyy", Dtini) + anos, _
          DatePart("m", Dtini) + meses, Day(Dtini)), Dtfin)

   If dias = 30 Or dias = 31 Then
     dias = 0
   End If

   If meses = 12 Then
     meses = 0
     anos = anos + 1
   End If

   If anos > 1 Then
     anos = anos & " anos "
   Else
     anos = anos & " ano "
   End If

   If meses > 1 Then
     meses = meses & " meses "
   Else
     meses = meses & " mês "
   End If

   If dias > 1 Then
      dias = dias & " dias "
   Else
     dias = dias & " dias "
   End If

   diferença_datas = anos & meses & dias

End Function

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR