Nesse vídeo demonstraremos a utilização da função GTFormatHour, que serve para formatar (aplicar uma máscara) em uma string de horas.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe296
Formata uma string de horas colocando uma máscara
@type Function
@author Atilio
@since 22/02/2023
@obs
Função GTFormatHour
Parâmetros
Recebe a hora
Recebe a máscara
Retorno
Retorna a hora formatada conforme a máscara
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe296()
Local aArea := FWGetArea()
Local cHoraAtual := Time()
Local cMensagem := ""
//Monta a mensagem e exibe
cMensagem += "Exemplo 1: " + GTFormatHour(cHoraAtual, "99") + CRLF
cMensagem += "Exemplo 2: " + GTFormatHour(cHoraAtual, "9999") + CRLF
cMensagem += "Exemplo 3: " + GTFormatHour(cHoraAtual, "99:99") + CRLF
cMensagem += "Exemplo 4: " + GTFormatHour(cHoraAtual, "99.99") + CRLF
cMensagem += "Exemplo 5: " + GTFormatHour(cHoraAtual, "99h") + CRLF
cMensagem += "Exemplo 6: " + GTFormatHour(cHoraAtual, "99h99") + CRLF
FWAlertInfo(cMensagem, "Teste GTFormatHour")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
