[Resolvido]Selecionar data mais recente entre campos

Olá pessoal,
Estou precisando de grande ajuda dos srs.

Tenho um banco de dados, onde numa consulta preciso de um campo que selecione a data mais recente entre os campos Data_Fim_Vigência e Dt_Vigência, porém esse último pode acontecer de não possui data (nulo) na tabela PPC_Termo_Aditivo_TAs.

Preciso que no formulário, a coluna Novo_Fim_Vigência_TA: retorne o número de dias vencidos ou a vencer conforme as datas selecionadas na consulta, prevalecendo sempre a mais recente.

Obrigado a todos!

Grande abraço!

Bom dia e bem vindo ao Fórum!
No caso do campo Dt_Vigência, nulo, qual o procedimento a se tomar?

Olá, bom dia!

Como num mesmo processo pode haver vários Termos Aditivos, que são lançados para cada item da Tabela PPC, nem sempre esse campo Dt_Vigência vai possuir uma data, ou seja, vai ficar em branco (null);

Até tentei criar um novo campo na consulta, mas dá erro:
Vigência_Final: fncFimVigencia(Nz([Data_Fim_Vigência];0);Nz([Dt_Vigência];0))

Pode notar no exemplo que Tempo2: Último(Abs(DifData("d";[Dt_Vigência];Data())) & SeImed(DifData("d";[Dt_Vigência];Data())<=0;" dias p/ vencer";" dias vencidos")), não calcula o tempo, pois falta datas em dois lançamentos nos termos aditivos... ele não está buscando apenas a data lançada.

Não sei se fui claro...

Desde já, agradeço a sua manifestação! Obrigado!

Em um módulo:

Código:

'Por Marcelo R. David
'14/06/2022
'Função para realizar o cálculo em dias dias entre duas datas
'Retorna uma string
Public Function FncCalculaDias(Data_Fim_Vigencia As Date, Dt_Vigencia As Date) As String
    Dim iD As Integer
   
    On Error Resume Next
   
    If Dt_Vigencia > #1/1/1900# Then
        If Data_Fim_Vigencia <= Dt_Vigencia Then
            iD = DateDiff("d", Dt_Vigencia, Date)
        Else
            iD = DateDiff("d", Data_Fim_Vigencia, Date)
        End If
    Else
        iD = DateDiff("d", Data_Fim_Vigencia, Date)
    End If
   
    Select Case iD
    Case Is < 0
        FncCalculaDias = Abs(iD) & " dias para vencer"
    Case Is = 0
        FncCalculaDias = "Vence hoje"
    Case Is > 0
        FncCalculaDias = Abs(iD) & " dias vencidos"
    End Select
   
End Function


Agora basta chamar a função na SQL, passando os parâmetros de datas.

Como no seu caso, em um campo da sql (designer):
TempoX: FncCalculaDias([Data_Fim_Vigência];Nz([Dt_Vigência];#01/01/1900#))

A função Nz é utilizada para avaliar se é nulo o campo Dt_Vigência, e se sim, passa a data 01/01/1900, assim nossa função irá entender
que só será considerado para cálculo a data Data_Fim_Vigência.

Olá Marcelo!

Tem como vc aplicar a solução no banco exemplo, que deixei anexado?

Fico aguardo!

Preciso da solução, será que mais alguém que possa me ajduar!

Não consegui aplicar a solução indicada pelo colega.

Ainda no aguardo...

Bom dia,
Baixe e teste por favor.

Prezado, bom dia!

Fico muito feliz pela força ofertada, porém quando abro o formulário principal, o fato de haver 3 aditivos para esse processo, ele consta triplicado na tela desse formulário, sendo que o objetivo é manter apenas uma linha mostrando a data mais recente do último aditivo e contando os demais dados.

Ainda não ficou de acordo com o sonhado, desculpe!

Abraços...

Ainda no aguardo da solução!

Prezados colegas!

Consegui resolver a situação com alguns ajustes na consulta, criei mais um campo e apliquei a função "Máx" que usei pra fixar o último aditivo de prorroga de vigência...

Obrigado à todos pela força! Valeu...

Maravilha que deu certo! Gratos pelo retorno e compartilhamento da solução!