Totvs Protheus Função MonthSum AdvPL [Tlpp]

Hoje vamos aprender a usar a Função MonthSum do AdvPL [Tlpp], [tl++] para obter a Soma de mes(es) a uma Data – Curso Protheus grátis AdvPL / TLPP.

#Include "Protheus.ch"
/*-------------------------------------------------------------------------------------------*
{Protheus.doc} User Function mMonthSum()
@type:      User Function
@author:    Jose Moura
@site:      https://academiaprotheus.com.br
@canal:     [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.:     Função MonthSum. Soma mes(es) a uma Data
@Sintaxe:   MonthSum(dData,nMes)
*-------------------------------------------------------------------------------------------*/

User Function mMonthSum()
Local aArea    := FWGetArea()
Local dData    := StoD("20230701")
Local nMes     := 4
Local dDataNew := MonthSum(dData,nMes)

FWAlertSuccess( 'Nova data com ' + cValToChar(nMes) + ' meses. É: ' + cValToChar(dDataNew), '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 Protheus, já ajudou centenas de pessoas a programar em AdvPL/Tlpp.