Totvs Protheus Função DateComp AdvPL [Tlpp]

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