ASSINE A NEWSLETTER

Cadastrando...

PIX uDesenv

SomaHoras

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

Descrição

Soma 2 horas Informada por parâmetro.

Sintaxe

SomaHoras( , )

Parâmetros

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

Retorno

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

Exemplo

#INCLUDE "TOTVS.CH"

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

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

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

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

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

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

Return( Nil )

Resultado
somahoras_-_resultado_01

somahoras_-_resultado_02

somahoras_-_resultado_03

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