Totvs Protheus Função DateDiffYMD AdvPL [Tlpp]

Hoje vamos aprender a usar a Função DateDiffYMD do AdvPL [Tlpp], [tl++] para obter a Diferença de Anos, Meses e Dias entre duas Datas – Curso Protheus grátis AdvPL / TLPP.

Informação Importante ref. aRet

#Include "Protheus.ch"
/*----------------------------------------------------------------------------------*
{Protheus.doc} User Function mDiffYMD()
@type:      User Function
@author:    Jose Moura
@site:      https://academiaproerp.com
@canal:     [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.:     Função DateDiffYMD. Diferenca de Anos, Meses e Dias entre duas Datas
@Sintaxe:   DateDiffYMD(Data1, Data2)
*-----------------------------------------------------------------------------------*/

User Function mDiffYMD()
Local aArea    := FWGetArea()
Local dData1   := StoD("20190701")
Local dData2   := StoD("20230804")
Local aRet     := DateDiffYMD(dData1,dData2)

FWAlertSuccess( 'Data 1: ' + cValtoChar(dData1) ;
        + CRLF + 'Data 2: ' + cValtoChar(dData2) ;
        + CRLF + 'Anos: ' + cValtoChar(aRet[1]) ;
        + CRLF + 'Meses: ' + cValtoChar(aRet[2]) ;
        + CRLF + 'Dias: ' + cValtoChar(aRet[3]) , 'Academia Protheus' )

FWRestArea(aArea)
Return

Moura

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.