Função Year

Devolve o ano de um número de data em série gerado pela função DateSerial ou DateValue.

Sintaxe:

Year (Número)

Valor de retorno:

Número inteiro

Parâmetros:

Número: expressão de números inteiros que contém o número de data em série utilizado para calcular o ano.

Esta função é o oposto da função DateSerial , e devolve o ano de uma data em série. Por exemplo, a expressão:

Print Year(DateSerial(1994, 12, 20))

devolve o valor 1994.

Códigos de erro

5 Chamada de procedimento inválido

Exemplo:

Sub ExampleYear

    MsgBox "" & Year(Now) ,64,"Ano atual"

End Sub