[Resolvido]Retornando apenas o ano da data num campo

Olá! Como posso exibir em um campo apenas o (ano) da data do sistema? Agradeço desde já pela atenção de todos!

consulta
ano: Format([now()];"yyyy")

formulario
fonte de origem
=Format([now()];"yyyy")

VBA
me.seuCampo=Format([now()],"yyyy")


mais ou menos isto

Olá Alberto

Não sei de qual sistema está falando, se do teu sistema (aplicativo) ou do windows (Dataatual)

Ano da data atual:

No VBA:

MeuCampo= Year(date)

Na fonte do controle:

= Ano(data())


[ ]'s

Olá! Desde já, agradeço pela colaboração! A data do sistema a qual me refiro é a própria data do computador. É um campo(AnoLetivo) do formulário que pega a data atual do computador e quero que o mesmo mostre apenas o (ano corrente). Vou testar sua sugestão e logo retornarei. Obrigado!

Agradeço também a todas as outras colaborações aqui postadas, pois, acrescentam muito ao meu conhecimento e estudos em VBA. Obrigado!

Bom dia a todos...

Se me permitem...apenas um pitaquinho de leve !

No painel de controle do windows®, em opções regionais ou opções ( depende da versão do Win ) você até pode mudar as configurações de datas e horas em vários formatos.

Mas...........

Isso vai afetar muita coisa dentro do computador, desde navegação na internet até mesmo acesso a bancos ( Itau, Santader etc..etc.. ) e sem contar que se estiver em uma rede, com servidor de domínio haverá uma grande chance de não acessar a tua rede devido as GPO´s do servidor.

E se for uma rede doméstica, apenas com roteador, poderá também haver problemas.

Melhor fazer como o Noob, Avelino e Scandinavo lhe disse.

Olá! Obrigado a todos pela colaboração! Já consegui resolver com a orientação da fonte do controle = Ano(data()) conforme sugeriu Noobezinho. Porém, meus agradecimentos às colaborações aqui prestadas. Só tenho uma questão, não consegui aplicar isso com o VBA, para efeito de estudos, eu gostaria muito de entender o porquê. Tenho um campo que se chama AnoLetivo e ao abrir o formulário, queria vê-lo apresentar (2015) automaticamente pelo VBA.

Alberto

No evento Ao abrir do formulário coloque, escolha procedimento do evento
e digite:
Me.AnoLetivo= Year(date)

Acreditando que a caixa de texto tenha esse nome.

Se esse campo é para cada registro e deseja ver ao navegar,
use a propriedade No atual do formulário.

Veja bem o que deseja e escolha uma dessas propriedades.

Se conseguir e der por resolvido o tópico, coloque o
Resolvido no título do tópico.
Para fazer isso, veja como ali embaixo na minha assinatura.

[ ]'s

OK! Tudo está resolvido perfeitamente! Agradeço pela disponibilidade dos colaboradores neste post.

Resolvido! Obrigado!

Que ótimo, Alberto

Valeu pelo retorno

Boa sorte!