Totvs Protheus Função FirstDate AdvPL [Tlpp]

Hoje vamos aprender a usar a Função FirstDate do AdvPL [Tlpp], [tl++] para extrair a Data com o Primeiro dia do mês de uma Data informada – Curso Protheus grátis AdvPL / TLPP.

#Include "Protheus.ch"
/*-------------------------------------------------------------------------------------------*
{Protheus.doc} User Function mFirstDate()
@type:      User Function
@author:    Jose Moura
@site:      https://academiaprotheus.com.br
@canal:     [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.:     Função FirstDate. Retorna Data com o Primeiro dia do mês da data informada
@Sintaxe:   FirstDate(Data)
*-------------------------------------------------------------------------------------------*/

User Function mFirstDate()
Local aArea    := FWGetArea()
Local dData    := Date()
Local dPriDia  := FirstDate(dData) //Data com primeiro dia do Mês

FWAlertSuccess( 'Data com Primeiro Dia é: ' + cValToChar(dPriDia), 'Academia Protheus' )

FWRestArea(aArea)
Return