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