Usando Access

André    12/12/2023 03:09:50

Olá.
Tenho uma dúvida e não consegui resolver até hoje.

Preciso saber o dia util.
O parâmetro seria:

DataAtual + Qtd de Dias = uma data Util

Você tem algo do tipo em seu acervo?

Avelino Sampaio   30/08/2023 04:39:18

Douglas,

experimente usando o DataAdd(). Crie um campo calculado na consulta assim:

DataVencimento: dateadd("yyyy";5;[data primeira habilitação])

Sucesso!

Douglas   29/08/2023 18:52:52

Boa noite meu amigo! Estou criando um sistema de cadastro de condutores do meu serviço e tem a data da primeira habilitação e a data de vencimento. Gostaria de saber como eu calculo o ano na mesma data. Por exemplo, hoje são 29/08/2018 daqui a 5 anos, será 29/08/2023, deu pra entender mais ou menos?

Alguém pode me ajudar?

Aguardo respostas!

ENER SANTOS DE OLIVEIRA   15/07/2023 18:09:51

Parabéns Professor Avelino pelo seu esforço de compartilha seu conhecimento com os mantes do Access.

Uderlan   29/09/2022 11:18:49

tenho uma caixa de texto: datanascimento caixa de texto: data que já é preenchida com a data do sistema e a caixa onde quero mostrar assim que digitar a data de nascimento aparecer a idadae em anos e meses, a caixa é idade

Uderlan   29/09/2022 10:51:04

Bom dia Jedi em vba, estou tentando implementar a idada e por extenso em anos e meses, tenho um campo onde é digitada a data de nascimento, a data do sistema e o campo onde gostaria que aparecesse a idade em anos e meses e não estou conseguindo como proceder?

Avelino Sampaio   04/09/2022 08:11:50

Pedro,

para calcular o ano deve ser usado esta fórmula:

Int((Format(Date, "yyyymmdd") - Format(DataNascimento, "yyyymmdd")) / 10000)

PEDRO R   01/09/2022 09:39:42

Não.
Eu copiei desta página.
Eu uso em excel.

Avelino Sampaio   01/09/2022 08:28:13

Pedro

baixe o exemplo oferecido e está retornando o valor correto ( 1 ano 11 meses 30 dias ). Vc baixou o arquivo, recentemente, do site ?

No aguardo

PEDRO R   01/09/2022 07:49:53

Percebi um "erro":
Diferença entre 02/09/2015 e 01/09/2017:
Tá retornando 2 anos 11 meses 30 dias (Errado). O certo seria retornar 1 ano 11 meses 30 dias.
Dá pra corrigir:

Obs: Se colocar a diferença entre 02/09/2016 e 01/09/2017, retorna 11 meses 30 dias (Correto).

Alcides Moreira de Resende   28/07/2022 08:39:30

Vou fazer essa mesma pergunta:
Como poderia usar este código utilizando uma data final informada por mim ao invés da data final ser a data do sistema - função date().

Assim teria uma data inicial que neste exemplo é a DataNascimento e uma DataFinal, ambas informadas pelo usuário, para o resultado retornar em "Anos" "Meses" e "Dias".

Acrescentando ainda que a data final poderia estar em branco.

amor1957@hotmail.com

pedroBB   01/07/2022 21:31:01

Problema resolvido. Muitissimo obrigado! Há muito tempo procurava formula tão completa pra Idade,
usando a fncIdadeCompleta.
Minha função ficou assim:
Private Sub txtDataNascimento_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TxtDataNascimento.Text) < 10 Or TxtDataNascimento.Value > CDate(Date) Or _ TxtDataNascimento.Text = "" Then
MsgBox "Data Inválida!!!!", vbCritical, "Cadastro de Pacientes"
Cancel = True
TxtDataNascimento.SelStart = 0
TxtDataNascimento.SelLength = TxtDataNascimento.TextLength
LblIdade.Visible = False
Label4.Visible = False
Else
LblIdade.Visible = True
Label4.Visible = True
LblIdade = fncIdadeCompleta(TxtDataNascimento, Date, "extenso")
End If
End Sub
Valeu!!!!!!!!!!!!!!!

pedroBB   01/07/2022 20:49:16

Esqueci de informar que estou usando a sensacional formula em Excel Vba.
A minha função é:
Private Sub txtDataNascimento_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TxtDataNascimento.Text) < 10 Or TxtDataNascimento.Value > CDate(Date) Then
MsgBox "Data Inválida!!!!", vbCritical, "Cadastro de Pacientes"
Cancel = True
TxtDataNascimento.SelStart = 0
TxtDataNascimento.SelLength = TxtDataNascimento.TextLength
End If
LblIdade.Visible = True
Label4.Visible = True
If TxtDataNascimento.Text = "" Then
LblIdade.Visible = False
Label4.Visible = False
Else
LblIdade = fncIdadeCompleta(TxtDataNascimento, Date, "extenso") "<<<<===== erro aqui - erro em tempo de execução 13, tipos incompatíveis
End If
End Sub

pedroBB   01/07/2022 13:18:01

Avelino,
Obrigado pela ajuda.
Agora calcula correto.
Mas percebi que dá erro em tempo de execução 13, tipos incompatíveis, quando testo com data que não existe. Exemplo: 29/02/2014. Uso o seguinte:
LblIdade = fncIdadeCompleta(TxtDataNascimento, Date, "extenso")

Avelino Sampaio   01/07/2022 03:53:51

PedroBB,

muito obrigado pelo seu feedback.

A fórmula para o cálculo dos ANOS estava imprecisa. Foi retirado a função INT() da fórmula é substituída pela Contra Barra (\)

Anos = DateDiff("d", DataNascimento, Date) \ 365.25

Atualizei o arquivo exemplo. Realize novos testes.

pedroBB   30/06/2022 13:10:03

Usei a fórmula: Idade Completa = fncIdadeCompleta(TxtDataNascimento, Date, "extenso"), e deu erro:
txtDataNascimento = 30/06/2013
Date = 30/06/2015
Resultado = 1 ano (??????)
O que ocorre?

gabriel a m da silva   17/06/2022 16:51:02

valeu cara muito obrigado

Avelino Sampaio   11/04/2022 07:22:41

José Carlos,

se inscreva no meu fórum: http://www.redeaccess.com.br

e ofereça mais detalhes, e se possível anexe um arquivo exemplo, para podermos te ajudar mais rapidamente.

Aguardamos

´José Carlos   04/04/2022 22:25:04

olá boa noite, quero te pedir se for possível me ajudar, estou numa situação meia embaraçosa, estou fazendo um pequeno banco de dados no access para a minha Igreja, pois ela não tem condição de comprar um, tudo bem fiz tudo legal, mais quando chegou no campo ano, Meses e dia eu não sei, será que você poderia me mandar um exemplo de formulário para eu copiar, desde já muito obrigado, conto contigo amigo.

Alan Rodrigo   16/03/2022 16:54:57

Boa noite Mestre Avelino, tuod bem?
Por favor, o Sr. teria alguma dica de como conseguir no VBA a diferença entre duas datas considerando o ano 360, isto é, em que os dias dos meses sempre serão 30 e naõ 31, 29 ou 28?

Avelino Sampaio   15/02/2022 14:41:04

Sebastião,

no arquivo exemplo eu uso a função numa consulta. Funciona no arquivo exemplo ?

No aguardo

Sebastião    13/02/2022 10:06:26

Bom dia Avelino.
Minuto boa essa função (fncidadecompleta) fiz ela em um módulo depois f
Construí uma consulta mas as respostas não apareceram. Você poderia me ajudar onde é feita a função e como faço pra usar os resultados? Abraço.

Luiz Carlos Junior   22/10/2021 12:08:45

Bom dia Mestres.

Tenho uma tabela com as faltas dos funcionários da escola (tb_Faltas), onde as mesmas são separadas por tipo (abonada, licença médica, etc.).
Preciso colocar em um relatório as datas iniciais e finais de intervalos de licença médica, por exemplo:

A funcionária X tem faltas de licença médica nos dias 15, 16, 17/07 e 21, 22, 23 24/07.
No relatório (rel_FichaCem) deve sair assim: LM: 15/07/2014 a 17/07/2014
LM: 21/07/2014 a 24/07/2014

Porém, na minha tabela, na hora de inserir as faltas por período, elas não são inseridas nos sábados, domingos e feriados (que estão na tabela tb_FeriadosCEM com os dados Dia_Feriado, Mes_Feriado).
Então, se a falta começa no primeiro dia de um mês que tenha feriado e termine no último dia deste mesmo mês, tem que aparecer assim: Exemplo Maio: LM: 01/05/2014 a 31/05/2014. Não sei se deu para entender.

É possível isso?
Agradeço desde já.

Abrasss!!!

ACFT   19/10/2021 04:44:12

Muito bom.
Muito bom, mesmo.
Parabéns pela forma clara como tudo foi explicado, mas sobretudo pelo espírito de partilha do saber adquirido.
Um excelente exemplo a seguir.

Eliana   17/10/2021 12:57:53

vc diz isto
datediff("d";dateserial(year(data_mobilização);month(data_mobilização)-1,26;dateserial(year(data_mobilização);month(data_mobilização);25))

Avelino Sampaio   17/10/2021 12:23:35

Eliana,

pode resolver com a função dateSerial(). Exemplo:

datediff("d",dateserial(year(date()),month(date())-1,26),dateserial(year(date()),month(date()),25))

Substitua date() pelos seus campos específicos

Sucesso!

Eliana   17/10/2021 12:11:14

Complementando eu usei essa função Dias: DifData("d";[data_mobilização];[date]), o que calcula o dia certo, porém, eu preciso que o retorno seja feito somente para um determinado periodo, ou seja de 26 do mes anterior a 25 do mês atual.

Eliana   17/10/2021 11:48:03

Como faço para calcular o numero de dias proporcional dentro do mês, por exemplo tenho a data 27/09/12 e preciso calcular dentro de um determinado período 26/09/12 a 25/10/12, quantos dias tem.

William   06/08/2021 11:48:44

Vou testar isso Avelino, mas desde já muito obrigado pela sua atenção.

Att,
William

Avelino Sampaio   17/07/2021 13:46:47

William,

o que é este [select] ?

Supondo que as datas estejam em campos de um formulário, tente assim:

if DateDiff("d",me!DATA_PROPOSTA,me!DATA ATIVACAO)<180 then
'verdadeiro
else
'falso
end if

Lembrando que a propriedade "formato" dos campos tem que estar setados para tipo DATA.

Sucesso!

William Lima   17/07/2021 12:33:42

Bom dia, estou tentando utilizar um critério juntamento com a função DATADIF, e está dando erro. Existe a possibilidade de utilizar com critério?
Exemplo:
DateDiff("d",[SELECT]![DATA_PROPOSTA],[SELECT]![DATA ATIVACAO])<180

Avelino Sampaio   23/05/2021 05:33:57

Marcelo,

experimente algo assim:

Entre format(forms![00_17_Devolução Geral_UNION]![Mês];"yyyymm") E format(Forms![Frm_GerarBaseCFR_Gerar]![Mes];"yyyymm")

Sucesso!

Marcelo Silva   22/05/2021 11:20:10

Bom dia Avelino!

Estou usando um campo com data completa (18/05/2012).

Avelino Sampaio   18/05/2021 04:55:48

Marcelo,

primeiro priciso saber o formato do campo [Mês] que vc esta usando. Esta incluindo o ano (05/2012) ou está incluido uma data completa (18/05/2012) ?

No aguardo

Marcelo Silva   17/05/2021 14:26:09

Boa tarde Avelino!

Preciso de uma ajuda, quero colocar uma função na linha critério na minha consulta para me trazer dados em um determinado intervalo.

Entre (forms![00_17_Devolução Geral_UNION].[Mês]&*) E (Forms![Frm_GerarBaseCFR_Gerar]![Mes]&*)

É possível eu usar uma função deste tipo na consulta, esta acima esta dando erro, quando eu deixo apenas uma regra ela funciona perfeitamente.

Como(forms![00_17_Devolução Geral_UNION].[Mês])&*

Onde estou errando na criação desta função, desde já agradeço ajuda.

Idenilton   04/05/2021 17:35:23

Muito bom, gostei, eu já havia feito um calcula de idade mais não dessa forma. Essa é bem mais completo...

Marcelo Varella   02/05/2021 18:56:00

Avelino, muito bons seus exemplos. Gostaria de pedir sua ajuda para este caso: Preciso extrair o periodo em anos, meses e dias de um periodo entre INÍCIO DE EXERCÍCIO e uma DATA DE REFERÊNCIA, que não pode ser NOW. Ela deverá ser preenchida a critério do usuário. Desde já agradeço!

Antonio v.   30/04/2021 10:54:35

Parabéns Avelino!
Era o que eu estava precisando!
Que Deus o abençoe...

Adão Elias   30/04/2021 09:06:03

Parábens!
Uma aula dinâmica, cheia de informações importantes.
Obrigado por compartilhar...

Avelino João   29/04/2021 18:06:12

Magnifica aula como sempre você é o maior especialista em access graça a você hoje, faço a diferença em Angola com o Access e Excel, brevemente terei um site e espero ter um link do teu site ao meu e poder fazer publicidade desse grande site que é o teu; Uma sujeitão gostaria que você volta-se a convidar o kartoffel para falar um pouco sobre como fazer filtro na lista do formulário Access com MySQL ou uma combobox para localizar registo e preencher o formulário.

Gilson   29/04/2021 17:22:19

Excelente foi passar a utilizar para calcular o período em que o réu permanece preso provisoriamente, antes fazia este calculo apenas em dias, agora, ficará muita mais legitimo com anos, meses e dias. Obrigado pelo contribuição.

MARCIO MELO - RJ   29/04/2021 14:06:49

Gostei muito desse artigo, e passarei utilizar dessa sua função bem elaborada, posta + uma função q uso:
Function FormatInterval(ByVal Interval As Variant, Fmt As String)
'
' Formata a diferença entre duas datas ou soma de dois horários para mostrar
' em dias, horas, minutos e segundos
' Suporta os seguintes formatos:
' D 5 Dias
' D H 5 Days 5 Hours
' D H:MM 5 Days 5:15
' D HH:MM 5 Days 05:15
' D H:MM:SS 5 Days 5:15:45
' D HH:MM:SS 5 Days 05:15:45
' H M 125 Hours 15 Minutes
' H:MM 125:15
' H:MM:SS 125:15:45
' M S 7515 Minutes 45 Seconds
'
Dim Days As Long, Hours As Long, Minutes As Long, Seconds As Long
'
' testa para tipos Data (Date) ou dupla precisão (Double)
'
If varType(Interval) <> 7 And varType(Interval) <> 5 Then Exit Function
'
' Extrai dias
'
Days = Int(Interval)
Interval = Interval - Days
If Interval > #11:59:59 PM# Then
Days = Days + 1
Interval = 0#
End If
'
' Extrai horas
'
Interval = Interval * 24
Hours = Int(Interval)
Interval = Interval - Hours
If Interval > 3599# / 3600# Then
Hours = Hours + 1
Interval = 0#
End If
'
' Extrai minutos
'
Interval = Interval * 60
Minutes = Int(Interval)
Interval = Interval - Minutes
If Interval > 59# / 60# Then
Minutes = Minutes + 1
Interval = 0#
End If
'
' Extrai segundos
'
Seconds = Int(Interval * 60 + 0.5)
'
' Normaliza
'
If Seconds = 60 Then
Minutes = Minutes + 1
Seconds = 0
End If
If Minutes > 59 Then
Hours = Hours + 1
Minutes = Minutes - 60
End If
If Hours > 23 Then
Days = Days + 1
Hours = Hours - 24
End If
'
' Cria formato
'
Select Case Fmt
Case "D"
FormatInterval = Days & IIf(Days <> 1, " Dias ", " Dia ") '& Hours & IIf(Hours <> 1, " Horas", " Hora")
Case "D H"
FormatInterval = Days & IIf(Days <> 1, " Dias ", " Dia ") & Hours & IIf(Hours <> 1, " Horas", " Hora")
Case "D H:MM"
FormatInterval = Days & IIf(Days <> 1, " Dias ", " Dia ") & Hours & ":" & Format(Minutes, "00")
Case "D HH:MM"
FormatInterval = Days & IIf(Days <> 1, " Dias ", " Dia ") & Format(Hours, "00") & ":" & Format(Minutes, "00")
Case "D H:MM:SS"
FormatInterval = Days & IIf(Days <> 1, " Dias ", " Dia ") & Hours & ":" & Format(Minutes, "00") & ":" & Format(Seconds, "00")
Case "D HH:MM:SS"
FormatInterval = Days & IIf(Days <> 1, " Dias ", " Dia ") & Format(Hours, "00") & ":" & Format(Minutes, "00") & ":" & Format(Seconds, "00")
Case "H M"
Hours = Hours + Days * 24
FormatInterval = Hours & IIf(Hours <> 1, " Horas ", " Hora ") & Minutes & IIf(Minutes <> 1, " Minutes", " Minute")
Case "H:MM"
Hours = Hours + Days * 24
FormatInterval = Hours & ":" & Format(Minutes, "00")
Case "H:MM:SS"
Hours = Hours + Days * 24
FormatInterval = Hours & ":" & Format(Minutes, "00") & ":" & Format(Seconds, "00")
Case "M S"
Minutes = Minutes + (Hours + Days * 24) * 60
FormatInterval = Minutes & IIf(Minutes <> 1, " Minutes ", " Minute ") & Seconds & IIf(Seconds <> 1, " Seconds", " Second")
Case Else
FormatInterval = Null
End Select
End Function

Sou mais Brasil!

Avelino Sampaio   02/04/2021 07:22:55

Wagner,

me passe seu email aqui pela seção CONTATO que eu te mando a função modificada para o seu caso.

No aguardo

Wagner Filho   01/04/2021 12:03:22

Olá... gostaria de uma ajuda dos colegas. Preciso fazer um cálculo entre duas datas informadas pelo usuário: Uma data inicial e uma data final.

Como poderia usar este código utilizando uma data final informada por mim ao invés da data final ser a data do sistema - função date().

Assim teria uma data inicial que neste exemplo é a DataNascimento e uma DataFinal, ambas informadas pelo usuário, para o resultado retornar em "Anos" "Meses" e "Dias"

obrigado

Ronaldo Adriano Gama de Souza   02/02/2021 11:14:24

TROQUEI O TRATAMENTO PRA QUEM NASCEU NO DIA 29 DE FEVEREIRO PARA FICAR PERFEITO

'TRATAMENTO PARA QUEM NASCEU NO DIA 29 DE FEVEREIRO
If (Day(DataNascimento) = 29) And (Month(DataNascimento) = 2) And ((Day(DataReferencia) = 28) And (Month(DataReferencia) = 2) And (IsDate("29/02/" & Year(DataReferencia)) = False)) Then
DataNascimento = 28 & "/" & 2 & "/" & Year(DataNascimento)
End If

Ronaldo Adriano Gama de Souza   02/02/2021 02:40:43

AMANDA, se voce quiser calcular da data de avaliação até a data atual voce vai jogar em uma coluna na consulta o seguinte:
Periodo: fncIdadeCompleta(Nz([data da avaliação];0);Data();"extenso")

se for da data de avaliação até uma data a especificar jogue em uma coluna da consulta o seguinte:
Periodo: fncIdadeCompleta(Nz([data da avaliação];0);#01/01/2014#;"extenso")

se voce tem um campo de data de retorno jogue em uma coluna da consulta o seguinte:
Periodo: fncIdadeCompleta(Nz([data da avaliação];0);[data de retorno];"extenso")


e para filtrar somente as datas especificas que voce quer coloque no critério de data de avaliaçao um dos seguinte abaixo:
entre [] e []
entre #01/01/2014# e #30/01/2014#
#05/01/2014# ou #11/01/2014# ou #14/01/2014# ou #21/01/2014#

ESPERO TER AJUDADO.

Ronaldo Adriano Gama de Souza   02/02/2021 02:22:33

ESTAVA INSPIRADO E ACRESCENTEI MAIS UMA OPÇÃO - ESCOLHER A FORMA DE RETORNO DA IDADE: POR EXTENSO OU POR INTEIROS(anos,meses,dias).

'IMPLEMENTADO POR ronaldogamadesouza(arroba)gmail(ponto)com
'ABAIXO VAI O CÓDIGO COM IMPLEMENTAÇÃO DE ALGUMAS IDÉIAS QUE EU TIVE
'1 - AGORA É POSSIVEL CALCULAR A IDADE NÃO SOMENTE COM A DATA ATUAL E SIM COM A DATA QUE VOCE PASSAR NO PARAMETRO
'2 - COLOQUEI A OPÇÃO DE VOCE ESCOLHER COMO QUER OS RESULTADOS: POR EXTENSO, POR ANOS, POR MESES, E POR DIAS, ASSIM VOCÊ PODE USAR A FUNÇÃO DE VÁRIAS FORMAS


'EXEMPLOS DE COMO FAZER A CHAMADA AGORA
'EM UMA CONSULTA
'Idade Completa: fncIdadeCompleta(Nz([DataNascimento];0);#01/01/2014#;"extenso") passando no parâmetro uma data desejada e solicitando o resultado por extenso
'Idade Completa: fncIdadeCompleta(Nz([DataNascimento];0);Data();"extenso") passando no parâmetro a data atual e solicitando o resultado por extenso
'NO VISUAL BASIC BASTA TROCAR OS PONTO E VÍRGULAS POR VÍRGULAS
'Idade Completa = fncIdadeCompleta(Nz([DataNascimento],0),#01/01/2014#,"extenso") passando no parâmetro uma data desejada e solicitando o resultado por extenso
'Idade Completa = fncIdadeCompleta(Nz([DataNascimento],0),Date,"extenso") passando no parâmetro a data atual e solicitando o resultado por extenso
'Idade Anos = fncIdadeCompleta(Nz([DataNascimento],0),Date,"extenso") passando no parâmetro a data atual e solicitando o resultado em anos inteiros
'espero ter ajudado, quem quiser pode dar sugestoes
'BY RONALDO


Public Function fncIdadeCompleta(DataNascimento As Date, DataReferencia As Date, resultado As String) As String
'PARAMETROS PARA DATA DE NASCIMENTO: uma data válida que seja igual ou inferior a data de referência
'PARAMETROS PARA DATA DE REFERENCIA: Data() ou Date() ou uma data válida tipo #01/01/2014# que seja igual ou superior a data de nascimento
'PARAMETROS PARA RESULTADO: "extenso" ou "anos" ou "meses" ou "dias"
'DECLAREI O PARAMETRO "DataReferencia" PARA CALCULAR COM A DATA QUE QUISER E NAO SOMENTE COM A DATA ATUAL


On Error GoTo trataerro
Dim Anos As Byte, Meses As Variant, Dias As Byte, DataRef As Date

'CASO A DATA DE NASCIMENTO FOR > QUE A DATA DE REFERENCIA RETORNA UM RESULTADO VAZIO
If DataNascimento > DataReferencia Or DataNascimento = 0 Then
fncIdadeCompleta = ""
Exit Function
End If

'TRATAMENTO PARA QUEM NASCEU NO DIA 29 DE FEVEREIRO
If (Day(DataNascimento) = 29) And _
(Month(DataNascimento) = 2) Then
DataNascimento = 28 & "/" & 2 & "/" & Year(DataNascimento)
End If

Anos = Int(DateDiff("d", DataNascimento, DataReferencia) / 365.25)
DataRef = DateSerial(Year(DataReferencia) + (Format(DataNascimento, "mmdd") > Format(DataReferencia, "mmdd")), Format(DataNascimento, "mm"), Format(DataNascimento, "dd"))
Meses = DateDiff("m", DataRef, DataReferencia) + (Format(DataNascimento, "dd") > Format(DataReferencia, "dd"))
DataRef = DateSerial(Year(DataReferencia), Format(DataReferencia, "mm") + (Format(DataNascimento, "dd") > Format(DataReferencia, "dd")), Format(DataNascimento, "dd"))
DataRef = IIf(Format(DataNascimento, "dd") <> Format(DataRef, "dd"), DataRef - Format(DataRef, "dd"), DataRef)
Dias = CDbl(DataReferencia) - CDbl(DataRef)

'CASO A DATA DE NASCIMENTO FOR IGUAL A DATA DE REFERENCIA IDADE É IGUAL A ZERO
If DataNascimento = DataReferencia Then
fncIdadeCompleta = 0
Anos = 0
Meses = 0
Dias = 0
'Exit Function
End If

'NAO ESTAVA CALCULANDO QUANDO ERA UM ANO EXATO ENTAO COMPLEMENTEI COM O CÓDIGO ABAIXO
If (Day(DataReferencia) = Day(DataNascimento)) And _
(Month(DataReferencia) = Month(DataNascimento)) And _
(Year(DataReferencia) - 1 = Year(DataNascimento)) Then
fncIdadeCompleta = "1 ano"
Anos = 1
Meses = 0
Dias = 0
'Exit Function
End If

If resultado = "extenso" Then
fncIdadeCompleta = IIf(Anos <= 1, IIf(Anos = 0, "", Anos & " ano "), Anos & " anos ") & _
IIf(Meses <= 1, IIf(Meses = 0, "", Meses & " mes "), Meses & " meses ") & _
IIf(Dias <= 1, IIf(Dias = 0, "", Dias & " dia "), Dias & " dias ")
ElseIf resultado = "anos" Then
fncIdadeCompleta = Anos
ElseIf resultado = "meses" Then
fncIdadeCompleta = Meses
ElseIf resultado = "dias" Then
fncIdadeCompleta = Dias
Else
fncIdadeCompleta = "parametros inválidos"
End If

sair:
Exit Function
trataerro:
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
Resume sair:
End Function

AMANDA   21/01/2021 14:57:06

BOA TARDE AVELINO,TENHO A SEGUINTE DUVIDA,TENHO UMA TABELA PACIENTES E ENTRE OS CAMPOS TENHO UM QUE SE CHAMA DATA AVALIAÇÃO,POIS BEM,ESSA FAZENDO UMA CONSULTA COM BASE NESTA TABELA EU POSSO PEDIR PARA ME MOSTRAR SOMENTE OS AVALIADOS DE TAL DATA,MAS E SE EU QUISER QUE ME MOSTRE OS AVALIADOS DE DUAS OU MAIS DATAS,NAO É INTERVALO,É APENAS DATAS,EX:QUERO QUE A CONSULTA ME MOSTRE SOMENTE OS AVALIADOS DOS DIAS 20/11/13,5/11/13 E 10/01/14. E TAMBEM QUE GERE UM RELATORIO.

Luis Ussuy   17/01/2021 11:35:05

Parabéns pela Função! Muito simples e salvou minha vida!

Antonio Costeira   22/11/2020 04:00:44

Obrigado Avelino, funcionou a segunda opção.

Avelino Sampaio   22/11/2020 02:18:52

Antonio

Experimente assim:

=Soma(Abs([t_dados_funcionais]![Situação Funcional]= 'Ativo'))

Ou assim:

=Soma(Abs([Situação Funcional]=’Ativo’))

Antonio Costeira   21/11/2020 06:40:02

Bom dia Avelino, como faço pra somar o número de funcionários ativos de uma consulta ? Tentei da seguinte forma; =Soma(Abs([t_dados_funcionais]![Situação Funcional])="Ativo"), mas deu erro.