Função Year

Retorna o ano de um valor de data gerado pela função DateSerial ou DateValue.

Sintaxe:

Year (Number)

Valor de retorno:

Integer

Parâmetros:

Number: expressão de número inteiro que contém o número de data em série usado para calcular o ano.

Esta função é oposta à função DateSerial e retorna o ano de uma data em série. Por exemplo, a expressão:

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

retorna o valor 1994.

Exemplo:

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