Nesse vídeo demonstraremos a utilização da função Year2Str, que serve para buscar um ano de uma data ou número e já trazer formatado como string.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "Totvs.ch"

/*/{Protheus.doc} User Function zExe549
Pega uma expressão e retorna o ano dela (se for data) ou converte para caractere (se for numérica) ou adiciona zeros a esquerda (se for caractere)
@type Function
@author Atilio
@since 07/04/2023
@obs 

    Função Year2Str
    Parâmetros
        Recebe a expressão no formato Data ou Numérico ou Caractere
    Retorno
        Retorna o ano no formato caractere com 4 digitos "YYYY"

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe549()
	Local aArea     := FWGetArea()
    Local cMensagem := ""

    //Monta a mensagem que será exibida
    cMensagem := "Via Data: "      + Year2Str(Date()) + CRLF
    cMensagem += "Via Número: "    + Year2Str(1993)   + CRLF
    cMensagem += "Via Caractere: " + Year2Str("123")  + CRLF
    FWAlertInfo(cMensagem, "Teste Year2Str")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++