[resolvido] Formatar campo Data

Moderador: Avelino Sampaio

percoski
Mensagens: 30
Registrado em: 29 Jul 2015, 19:26

[resolvido] Formatar campo Data

Mensagempor percoski » 26 Abr 2017, 10:19

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

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1897
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Formatar campo Data

Mensagempor Avelino Sampaio » 26 Abr 2017, 12:01

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
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

percoski
Mensagens: 30
Registrado em: 29 Jul 2015, 19:26

Re: Formatar campo Data

Mensagempor percoski » 26 Abr 2017, 17:29

Perfeitamente isso mesmo Mestre.


Obrigado

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Relatórios”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante