[Resolvido]Valor mínimo de três campos numa consulta

Como faço para juntar 3 campos em formato data em um?
Quero pegar a menor data registrada de uma linha e colocar em um campo específico.

Boa tarde.
Você pode fazer isso direto na consulta: em Total > Mín

Eu sei, mais precisava que três campos si tornasse um, pois preciso de um campo para o gráfico dinâmico.

Mais ou menos assim:

Código:

DataAtraso    DataFalta     DataAtestado      Data
21/02/2015   21/03/2015    03/02/2015        03/02/2015
01/01/2014   22/07/2014    19/08/2014        01/01/2014

O campo Data pega a menor data dos três campos.

Bem vamos lá.

Cole esta função em um módulo qualquer:

Código:


Public Function fncMenorData(c1, c2, c3, c4)
Dim k

If c1 <= Nz(c2) Then If (c1) <= (c3) Then If c1 <= c4 Then k = Format(c1, "dd/mm/yyyy")
If c2 <= Nz(c1) Then If (c2) <= (c3) Then If c2 <= c4 Then k = Format(c2, "dd/mm/yyyy")
If c3 <= Nz(c1) Then If (c3) <= (c2) Then If c3 <= c4 Then k = Format(c3, "dd/mm/yyyy")
If c4 <= Nz(c1) Then If (c4) <= (c2) Then If c4 <= c3 Then k = Format(c4, "dd/mm/yyyy")
fncMenorData = k

End Function


Na sua consulta no campo que quer exibir a menor data entre os três campos coloque isso:

MenorData: fncMenorData([DataFalta];[DataAtraso];[DataAtestado];[DataAtestado])


Se quiser pode usar também para valores, é só modificar o formato da função de Data para ##,##0.00
Pronto!
Agora é so exibir.

Abraço.

Resolvido.
Obrigado!

O fórum agradece o retorno.