Totvs Protheus Função GravaData AdvPL [Tlpp]

Hoje vamos aprender a usar a Função GravaData do AdvPL [Tlpp], [tl++] para Converter Data para o formato Informado – Curso Protheus grátis AdvPL / TLPP.

Informações adicionais

Importante: O terceiro parâmetro da função (formato do retorno) somente é respeitado, caso o 2º parâmetro (tipo de data) seja falso (.F.)

#Include "Protheus.ch"
/*-------------------------------------------------------------------------------------------*
{Protheus.doc} User Function mGravaData()
@type:      User Function
@author:    Jose Moura
@site:      https://academiaprotheus.com.br
@canal:     [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.:     Função GravaData. Converte Data para o formato Informado
@Sintaxe:   GravaData(dData, lBarra, nFormato)
*-------------------------------------------------------------------------------------------*/

User Function mGravaData()
Local aArea     := FWGetArea()
Local dData     := Date()
Local lBarra    := .F.
Local nFormato  := 1
Local nFormato2 := 2
Local nFormato3 := 3
Local nFormato4 := 4
Local nFormato5 := 5
Local nFormato6 := 6
Local nFormato7 := 7
Local nFormato8 := 8

FWAlertSuccess( 'A Data é: ' + cValToChar(dData) ;
       + CRLF + 'Formato: ' + GravaData( dData,lBarra,nFormato ) ;
       + CRLF + 'Formato2: ' + GravaData( dData,lBarra,nFormato2 ) ;
       + CRLF + 'Formato3: ' + GravaData( dData,lBarra,nFormato3 ) ;
       + CRLF + 'Formato4: ' + GravaData( dData,lBarra,nFormato4 ) ;
       + CRLF + 'Formato5: ' + GravaData( dData,lBarra,nFormato5 ) ;
       + CRLF + 'Formato6: ' + GravaData( dData,lBarra,nFormato6 ) ;
       + CRLF + 'Formato7: ' + GravaData( dData,lBarra,nFormato7 ) ;
       + CRLF + 'Formato8: ' + GravaData( dData,lBarra,nFormato8 ) , 'Academia Protheus' )

FWRestArea(aArea)
Return