Totvs Protheus Função DateDiffMonth AdvPL [Tlpp]

Hoje vamos aprender a usar a Função DateDiffMonth do AdvPL [Tlpp], [tl++] para extrair Diferenca em meses entre duas datas – Curso Protheus grátis AdvPL / TLPP.

#Include "Protheus.ch"
/*-------------------------------------------------------------------------------------------*
{Protheus.doc} User Function mDifMonth()
@type:      User Function
@author:    Jose Moura
@site:      https://academiaproerp.com
@canal:     [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.:     Função DateDiffMonth. Diferenca em meses entre duas datas
@Sintaxe:   DateDiffMonth(Data1, Data2)
*-------------------------------------------------------------------------------------------*/

User Function mDifMonth()
Local aArea    := FWGetArea()
Local dDataIni := StoD("20230701")
Local dDataFim := StoD("20231130")
Local nMeses   := DateDiffMonth(dDataIni, dDataFim)

FWAlertSuccess( 'A quantidade é: ' + cValToChar(nMeses) + ' meses.' , '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.