Nesse vídeo demonstraremos a utilização da função ExtractTime, que serve para extrair informações de horas, minutos e segundos de uma expressão “hh:mm:ss”.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe168
Função para extrair informações de uma string com "hh:mm:ss"
@type Function
@author Atilio
@since 19/12/2022
@obs 
    Função ExtractPath
    Parâmetros
        + Hora no formato "hh:mm:ss"
        + Quantidade de horas
        + Quantidade de minutos
        + Quantidade de segundos
        + Define o tipo de retorno ("h" ou "m" ou "s")
    Retorno
        + Retorno conforme cRet

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe168()
    Local aArea     := FWGetArea()
    Local cHoraAtu  := Time()
    Local nHoras    := 0
    Local nMinutos  := 0
    Local nSegundos := 0
    Local cMensagem := ""

    //Faz a extração do tempo e atualiza as variáveis
    ExtractTime(cHoraAtu, @nHoras, @nMinutos, @nSegundos)

    //Exibindo uma mensagem
    cMensagem := "Hora atual: " + cHoraAtu + CRLF + CRLF
    cMensagem += "Horas: "      + cValToChar(nHoras) + CRLF
    cMensagem += "Minutos: "    + cValToChar(nMinutos) + CRLF
    cMensagem += "Segundos: "   + cValToChar(nSegundos)
    FWAlertInfo(cMensagem, "Teste com ExtractTime")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++