Nesse vídeo demonstraremos a utilização das funções FormataData e FormatData, sendo que ambas servem para formatar uma data para exibição em telas.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe189
Formata a data para exibição
@type Function
@author Atilio
@since 21/12/2022
@obs
Função FormataData
Parâmetros
+ Data de referência
+ Tipo de formatação (1= DDMMAA; 2= Compatibilidade; 3= DD/MM/AA; 4= DD/MM/AAAA; 5= AAAAMMDD)
Retorno
+ Retorna o texto formatado
Função FormatData
Parâmetros
+ Data de referência
+ Se irá ter uma "/" separando os dias dos meses e dos anos
+ Tipo de formatação (1= DDMMAA; 2= MMDDAA; 3= AADDMM; 4= AAMMDD; 5= DDMMAAAA; 6= MMDDAAAA; 7= AAAADDMM; 8= AAAAMMDD)
Retorno
+ Se o lBarra for .F. retorna o texto formatado senão ele retorna uma variável do tipo data
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe189()
Local aArea := FWGetArea()
Local dDataRef := Date()
Local cMensagem := ""
//Monta uma mensagem com todos os tipos
cMensagem := ""
cMensagem += "#1: " + FormataData(dDataRef, 1) + CRLF
cMensagem += "#3: " + FormataData(dDataRef, 3) + CRLF
cMensagem += "#4: " + FormataData(dDataRef, 4) + CRLF
cMensagem += "#5: " + FormataData(dDataRef, 5) + CRLF
FWAlertInfo(cMensagem, "Teste FormataData")
//Monta uma mensagem com todos os tipos e com barras
cMensagem := ""
cMensagem += "#1: " + FormatData(dDataRef, .F., 1) + CRLF
cMensagem += "#2: " + FormatData(dDataRef, .F., 2) + CRLF
cMensagem += "#3: " + FormatData(dDataRef, .F., 3) + CRLF
cMensagem += "#4: " + FormatData(dDataRef, .F., 4) + CRLF
cMensagem += "#5: " + FormatData(dDataRef, .F., 5) + CRLF
cMensagem += "#6: " + FormatData(dDataRef, .F., 6) + CRLF
cMensagem += "#7: " + FormatData(dDataRef, .F., 7) + CRLF
cMensagem += "#8: " + FormatData(dDataRef, .F., 8) + CRLF
FWAlertInfo(cMensagem, "Teste FormatData")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima
