Descrição
SubHoras - Subtrai 2 horas Informada por parâmetro.
|
Sintaxe
| SubHoras( <cHora01>, <cHora02> ) |
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
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! 😎
