Retornando o Ano de uma Data com Year em ADVPL

Tempo de leitura: 1 minuto

 

A função Year em ADVPL retorna o ano(formato aaaa) correspondente a uma data passada como parâmetro. Ela é uma das funções de manipulação de data e hora em ADVPL.

Sintaxe:

Year(dData)

 

Parâmetro(s):

 

Retorno:

 

Observações:

  • Quando informado uma data nula(CtoD(“”)), o retorno será zero;
  • Essa função faz parte de um grupo funções que retornam componentes de um valor data na forma de valores numéricos. Esse grupo inclui as função Day Month, que retornam os valores dia e mês respectivamente na forma de números.

 

Exemplo da função Year em ADVPL

#include 'protheus.ch'
#Define QLIN CHR(13)+CHR(10)

/*{Protheus.doc} User Function fYear
    (Essa função tem por finalidade mostrar a função de Manipulação de Data e Hora Year em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 10/12/2023
    @version 1.0
  
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/

@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG
*/

User Function fYear()

	Local dHoje := Date()
	Local nAno := Year(dHoje)

	MsgInfo("Nós estamos no ano de:"+cValToChar(nAno))

Return



 

 

 

É isso aí, finalizamos mais um post aqui no Blog ProtheusAdvpl, caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Até um próximo post. Grande abraço e fica com Deus.

 

Link(s) de referência:

Receba as últimas atualizações do ProtheusAdvpl
Deixe seu melhor email
Nós respeitamos sua privacidade.