Extrato do Excel VBA Ano
Debug.Print Year("2021-06-01") ' 2021
VasteMonde
Debug.Print Year("2021-06-01") ' 2021