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.

Exemplo:

Sub ExampleYear
    MsgBox "" & Year(Now) ,64,"Ano atual"
End Sub