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