Hoje vamos aprender a usar a Função AtTotHora do AdvPL [Tlpp], [tl++] para calcular a diferença entre o período de duas datas e horários – Curso Protheus grátis AdvPL / TLPP.
#Include "Protheus.ch"
/*----------------------------------------------------------------------------------*
{Protheus.doc} User Function mAtTotHo()
@type: User Function
@author: Jose Moura
@site: https://academiaproerp.com
@canal: [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.: Função AtTotHora. Retorna o Número total de dias com horas
@Sintaxe: AtTotHora(dDataI, cHoraI, dDataF, cHoraF)
*-----------------------------------------------------------------------------------*/
User Function mAtTotHo()
Local aArea := FWGetArea()
Local dDataI := CToD('10/10/2023')
Local cHoraI := '10:15:00'
Local dDataF := CToD('15/11/2023')
Local cHoraF := '16:45:00'
Local cRet := AtTotHora(dDataI, cHoraI, dDataF, cHoraF)
//Exibe Número total de dias com horas)
FWAlertSuccess('Data 1: ' + cValtoChar(dDataI) ;
+ CRLF + 'Data 2: ' + cValtoChar(dDataF) ;
+ CRLF + 'Retorno é: ' + cRet, 'Academia Protheus')
FWRestArea(aArea)
Return


Analista de sistemas, programador com mais de 18 anos de experiência no sistema Totvs Protheus, administrador, suporte e customizações, idealizador da Academia ProERP, já ajudou centenas de pessoas a programar em AdvPL/Tlpp.