Nesse vídeo demonstraremos a utilização das funções hToM e mToH, que servem para fazer conversões entre horas e minutos.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe299
Conversões entre horas e minutos
@type Function
@author Atilio
@since 22/02/2023
@obs
Função hToM
Parâmetros
Recebe um número de horas
Retorno
Retorna o número total de minutos
Função mToH
Parâmetros
Recebe um número de minutos
Retorno
Retorna a hora, minuto e segundos no formato "hh:mm"
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe300()
Local aArea := FWGetArea()
Local nResultado := 0
Local cHoras := ""
//Busca os minutos através de uma hora
nResultado := hToM("10:25")
FWAlertInfo("10:25 horas dá um total de " + cValToChar(nResultado) + " minutos!", "Exemplo hToM")
//Busca uma hora através dos minutos
cHoras := mToH(640)
FWAlertInfo("640 minutos dá um total de " + cHoras + "!", "Exemplo mToH")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
