IPB

Bem-vindo, visitante ( Entrar | Registrar )

 
Reply to this topicStart new topic
Relatório Com Função Idade, Tratar erro quando data nascimento esta em branco
Nelson Sousa
post Nov 2 2016, 08:18 PM
Post #1


Analista
****

Grupo: Administradores
Posts: 551
Registrado: 2-July 08
De: Muriaé - MG
Membro N°: 4



Olá,

If CStr(nascimento) = nothing them
agruparIdade = -1
End if
Go to the top of the page
 
+Quote Post
Sérgio SCS
post Nov 4 2015, 05:36 PM
Post #2


Calouro
*

Grupo: Membros
Posts: 1
Registrado: 3-November 15
Membro N°: 38.641



Pessoal, esta função abaixo funciona muito bem, porém, quando a data está vazia traz erro. Gostaria de tratar o erro dentro da função. Tentei por fora com NZ mas não consegui. Pensei em algo como se der erro retornar "-1".

Public Function agruparIdade(nascimento As Date) As String
Dim intIdade As Integer
intIdade = DateDiff("yyyy", [nascimento], Now()) + _
Int(Format(Now(), "mmdd") < Format([nascimento], "mmdd"))
Select Case intIdade
Case 0 To 18
agruparIdade = "0-18"
Case 19 To 23
agruparIdade = "19-23"
Case 24 To 28
agruparIdade = "24-28"
Case 29 To 33
agruparIdade = "29-33"
Case 34 To 38
agruparIdade = "34-38"
Case 39 To 43
agruparIdade = "39-43"
Case 44 To 48
agruparIdade = "44-48"
Case 49 To 53
agruparIdade = "49-53"
Case 54 To 58
agruparIdade = "54-58"
Case Is > 58
agruparIdade = "58+"
End Select
End Function
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
2 usuário(s) está(ão) lendo este tópico (2 visitantes e 0 usuários anônimos)
0 membros:

 

Modos de Exibição: Padrão · Mudar para: Linear+ · Mudar para: Outline


Versão Simples Horário: 20th October 2017 - 08:35 PM