[Resolvido]Função para Faixa etária em Caixa Texto

Amigos tenho esta função para consultas..
Mas preciso aplicá-la em uma Caixa texto..

Se Puderem me ajudar..


SeImed(DifData("y";[txtDataNascimento];Data()) Entre 10 E 20;"10/20";SeImed(DifData("y";[DataNascimento];Data()) Entre 20 E 30;"20/30"))

Tente assim:

=SeImed(ÉNulo([txtDataNascimento]) Ou [txtDataNascimento]="";"";SeImed(DifData("yyyy";[txtDataNascimento];Data())<100;Esquerda(DifData("yyyy";[txtDataNascimento];Data());1) & "0/" & Esquerda(DifData("yyyy";[txtDataNascimento];Data());1)+1 & "0";Esquerda(DifData("yyyy";[txtDataNascimento];Data());2) & "0/" & Esquerda(DifData("yyyy";[txtDataNascimento];Data());2)+1 & "0"))

Amigão ta dando erro sintaxe,, algo com as aspas.. estou a tentar.. se puder ver isso tambem fico grato

Tenho esse código aqui que serve para isso,, mas como aplicá-lo em uma caixa texto??


[/code]Function CalculaIdadeAno(TxtDataNascimento As Date)

If IsNull(TxtDataNascimento) Or TxtDataNascimento > Date Then
MsgBox "Data de nascimento inválida!", vbExclamation, "Erro"
If (TxtDataNascimento) = "" Then
MsgBox "Data de nascimento inválida!", vbExclamation, "Erro"
Exit Function
End If
End If

Dim Anos, meses, dias
Dim iAnos As Double, iMeses As Double, Intervalo As Double

' O resultado da diferença está em Double
Intervalo = Date - TxtDataNascimento
' Um ano tem exatamente 365,25 dias
iAnos = Intervalo / 365.25
Anos = Int(iAnos)
iMeses = (iAnos - Anos) * 12
meses = Int(iMeses)

dias = DateDiff("d", DateSerial(DatePart("yyyy", TxtDataNascimento) + Anos, DatePart("m", TxtDataNascimento) + meses,
Day(TxtDataNascimento)), Date)

If dias = 30 Then
dias = 0
meses = meses + 1
End If

If meses = 12 Then
meses = 0
Anos = Anos + 1
End If
Fim:
CalculaIdadeAno = Anos
txt_Idade = CalculaIdadeAno

Dim IdadeAtual as String

IdadeAtual = txt_Idade

Select Case idadeAtual
Case is 0
txt_Faixa_Etaria = 50
Case is 1
txt_Faixa_Etaria = 51
Case is 2
txt_Faixa_Etaria = 52
Case is 3
txt_Faixa_Etaria = 53
Case is 4 Then
txt_Faixa_Etaria = 54
Case is 5 Then
txt_Faixa_Etaria = 55
Case 6 To 11
txt_Faixa_Etaria = 60
Case 12 To 14
txt_Faixa_Etaria = 61
Case 15 To 20
txt_Faixa_Etaria = 62
Case 21 To 24
txt_Faixa_Etaria = 63
Case 25 To 29
txt_Faixa_Etaria = 64
Case 30 To 34
txt_Faixa_Etaria = 65
Case 35 To 39
txt_Faixa_Etaria = 66
Case 40 To 44
txt_Faixa_Etaria = 67
Case 45 To 49
txt_Faixa_Etaria = 68
Case 50 To 54
txt_Faixa_Etaria = 69
Case 55 To 59
txt_Faixa_Etaria = 70
Case 60 To 64
txt_Faixa_Etaria = 71
Case is >=65
txt_Faixa_Etaria = 72

End Select

End Function
[code]

Com aplicações tão simples para cálculo de idade, porquê isso?

Eu usei em um campo aqui e funcionou certinho do jeito que coloquei acima.

Vierão o cálculo de idade eu consegui em um campo não acoplado.. Veja:

=Int(((Data()-[txtDataNascimento])-1)/365,25)

O que preciso agora é a Faixa etária...

Amigo criquio.. Deu certo... Deve ter ficado sobrando uma virgula metida a besta quando substitui o código seu por um anterior que eu estava testando...

Gratro!!!!

Pode me traduzir no portugues rasgado parte dessa expressão para eu entender apenas como ela retorna a Faixa etária...

So a título de conhecimento mesmo...

Grato

=SeImed(ÉNulo([txtDataNascimento]) Ou [txtDataNascimento]="";"";SeImed(DifData("yyyy";[txtDataNascimento];Data())<100;Esquerda(DifData("yyyy";[txtDataNascimento];Data());1) & "0/" & Esquerda(DifData("yyyy";[txtDataNascimento];Data());1)+1 & "0";Esquerda(DifData("yyyy";[txtDataNascimento];Data());2) & "0/" & Esquerda(DifData("yyyy";[txtDataNascimento];Data());2)+1 & "0"))

Se campo txtDataNascimento for nulo ou vazio, então, fique vazio seu besta. Se a idade do cabra da peste for menor que 100, então coloque aqui o primeiro dígito da idade + 0 + / + (o primeiro dígito da idade + 1) + 0. Caso contrário, coloque aqui os dois primeiros dígitos da idade + 0 + / + (os dois primeiros dígitos da idade + 1) + 0

Perfect!!!