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.

Tags: AdvPLMaratonaProtheusTL++