[resolvido] Formatar campo Data

[percoski]

Olá,

Recebo a data nesse formato "2017-04-24T09:23:24-03:00", e no meu relatorio deve aparecere assim "24/04/2017 09:23"


Sem mais

[Avelino Sampaio]

Percoski,

copie e afunção abaixo para um módulo global

Código:

Public Function fncAjustaData(strData)
Dim k
strData = Replace(strData, "T", "-")
strData = Replace(strData, ":", "-")
k = Split(strData, "-")
fncAjustaData = DateSerial(k(0), k(1), k(2)) & " " & k(3) & ":" & k(4)
End Function

Acrescente um campo no relatório e na propriedade fonte do controle coloque:

=fncAjustaData([NomeCampoQuePossuiAData])

Aguardamos

[percoski]

Perfeitamente isso mesmo Mestre.


Obrigado