Hoje vamos aprender a usar a Função DateComp do AdvPL [Tlpp], [tl++] para obter a Diferenca em dias ou meses entre duas Datas – Curso Protheus grátis AdvPL / TLPP.
#Include "Protheus.ch" /*----------------------------------------------------------------------------------* {Protheus.doc} User Function mDateCo() @type: User Function @author: Jose Moura @site: https://academiaprotheus.com.br @canal: [Inscreva-se no canal https://www.youtube.com/@academiaprotheus] @desc.: Função DateComp. Diferenca em dias ou meses entre duas datas @Sintaxe: DateComp(Data1, Data2) *-----------------------------------------------------------------------------------*/ User Function mDateCo() Local aArea := FWGetArea() Local dData1 := sToD("20230810") Local dData2 := Date() Local nDias := DateComp(dData1, dData2, "DD") Local nMeses := DateComp(dData1, dData2, "MM") FWAlertSuccess( 'Data 1: ' + cValtoChar( dData1 ) ; + CRLF + 'Data 2: ' + cValtoChar( dData2 ) ; + CRLF + 'Dias: ' + cValtoChar( nDias ) ; + CRLF + 'Meses: ' + cValtoChar(nMeses) , 'Academia Protheus' ) FWRestArea(aArea) Return