ASSINE A NEWSLETTER

Cadastrando...

PIX uDesenv

SubHoras

Autor: Eurai Criado: 01/01/2016 Atualizado: 27/07/2021

Descrição

Subtrai 2 horas Informada por parâmetro.

Sintaxe

SubHoras( , )

Parâmetros

Par	Nome	Tipo	Descrição	Default	Obg	Ref
01	cHora01	Caracter	Hora a Subtrair		X
02	cHora02	Caracter	Hora a Subtrair		X

Retorno

Retorno	Tipo	Descrição
nRet	Numérico	Resultado da subtração das Horas

Exemplo

#INCLUDE "TOTVS.CH"

User Function SubHoras()
Local cHora01	:= '10:20'
Local cHora02	:= '02:30'

MsgInfo( 'Valor 01: ' + cValtoChar( cHora01 ) ;
	+ CRLF + 'Valor 02: ' + cValtoChar( cHora02 ) ;
	+ CRLF + 'Retorno: ' + cValtoChar( SubHoras( cHora01, cHora02 ) ), 'UniversoADVPL' )

cHora01	:= '10.30'
cHora02	:= '02.30'

MsgInfo( 'Valor 01: ' + cValtoChar( cHora01 ) ;
	+ CRLF + 'Valor 02: ' + cValtoChar( cHora02 ) ;
	+ CRLF + 'Retorno: ' + cValtoChar( SubHoras( cHora01, cHora02 ) ), 'UniversoADVPL' )

cHora01	:= '10.30'
cHora02	:= '22.50'

MsgInfo( 'Valor 01: ' + cValtoChar( cHora01 ) ;
	+ CRLF + 'Valor 02: ' + cValtoChar( cHora02 ) ;
	+ CRLF + 'Retorno: ' + cValtoChar( SubHoras( cHora01, cHora02 ) ), 'UniversoADVPL' )

Return( Nil )

Resultado
subhoras_-_resultado_01

Informações adicionais

cHora01/cHora02 => Pode ser Enviado como numérico também e o separador é "."

Se for Caracter, pode ser com ":" ou "."

nHora01 := 10.20

nHora02 := 02.30

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎

Facebook