No vídeo de hoje vamos demonstrar como acrescentar e diminuir minutos em uma hora através das funções IncTime e DecTime.
Essa dúvida foi feita pelo Mendonça, onde ele perguntou como poderia adicionar valores em uma variável do tipo hora no formato “hh:mm:ss”.
Montamos um exemplo demonstrando a utilização da IncTime e da DecTime.
E abaixo o código fonte desenvolvido para exemplificar:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zVid0054
Função para demonstrar em como incrementar ou decrementar minutos numa variável
@type Function
@author Atilio
@since 26/08/2022
/*/
User Function zVid0054()
Local aArea := FWGetArea()
Local cHora := Time()
Local cExempSom := ""
Local cExempSub := ""
Local cMensagem := ""
//Incrementa e decrementa horas, minutos e segundos
cExempSom := IncTime(cHora, 2, 30, 10)
cExempSub := DecTime(cHora, 1, 45, 30)
//Exibe o resultado
cMensagem := "Abaixo os detalhes da manipulação de horas:" + CRLF
cMensagem += "Hora Base: " + cHora + CRLF
cMensagem += "Exemplo Adição: " + cExempSom + CRLF
cMensagem += "Exemplo Subtração: " + cExempSub
FWAlertInfo(cMensagem, "Resultado")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
