Função Para Exibir O Mês

[Prof. Jonatas]

Olá galera,

Eu costumava usar o Access 2003

Mas agora eu não o tenho mais, então estou usando o Access 2000. <_<

Estou tendo problema com esta função.

=NomeMês(Mês(Agora()))

Quando era no access 2003 funcionava perfeitamente. :angry:

Alguém sabe como devolo colocar agora no access 2000?

Ou o erro não tem nada a ver com as versões? :huh:

Como faço isso?

valeu, aguardo respostas

[kuroi]

???? você escrevia em portugues?

o normal é assim:

MonthName(Month(Now()))

[Prof. Jonatas]

Bom pelo menos quando estava em português no access 2003, funcionava.

Este que você me passou em inglês não funcionou não cara.

Aguardo respostas...

Eae você recebeu os contratos de pessoa física para pessoa física?

Té +

[kuroi]

estranho fiz assim:

Select MonthName(Month(Now()))

e voltou "maio", normal.

isso no access 2002.

o que aconteceu, ele retorna alguma mensagem de erro?

valeu, recebi sim. agora to trampando registrado, então nem vou usar por enquanto, mas deve ser bem util mais pra frente.

[Prof. Jonatas]

Tentei denovo e mesmo assim não funcionou.

Fica aparecendo a mensagem:

#Nome?

Eu to usando o access 2000

você colocou com sinal de "=" antes de do select ou algo assim?

Coloquei o igual e deu erro.

Falowae aguardo res.

[kuroi]

entendi, você não esta tentando fazer select, e sim definir o valor padrão no campo, certo?

tente fazer sem select, so assim:

= MonthName(Month(Now()))

se não funcionar, no access 2003 tem um botaozinho do lado que você pode procurar as funcoes que existem, veja se na sua versao também tem isso.

[Prof. Jonatas]

Sem sucesso.... :angry:

To ferrado cara, não funcionou não!

[kuroi]

o campo em que você esta tentando por essa funcao é formato texto? tem que ser!

não tem o botaozinho que eu falei?

qual a mensagem do erro?

[hicarocastro]

=Month(Now())

Só isso basta, ele retorna o número do mês

[Guest Visitante]

Mas eu gostaria que me retornasse em texto, ao invés de numero.

Ex. ao invés de ser 2 seria fevereiro

[Silvia.gdc]

Olá, supondo que a data será exibida num label, eu utilizo o seguinte código(ele pode ficar no evento que for necessário):

Private Sub Rótulo34_Click()

Rótulo34.Caption = Format(Now(), "dd mmmm,yyyy")

End Sub

[MrMALJ]

Faça um código assim:

dim dataAtual as date
dataAtual=date()
Select Case dataAtual
      Case 1
         seuTexto.value="Janeiro"
      Case 2
         seuTexto.value="Fevereiro"
      Case 3
         seuTexto.value="Março"
      Case 4
         seuTexto.value="Abril"
      Case 5
         seuTexto.value="Maio"
      Case 6
         seuTexto.value="Junho"
      Case 7
         seuTexto.value="Julho"
      Case 8
         seuTexto.value="Agosto"
      Case 9
         seuTexto.value="Setembro"
      Case 10
         seuTexto.value="Outubro"
      Case 11
         seuTexto.value="Novembro"
      Case 12
         seuTexto.value="Dezembro"
End Select

Adapte ao seu projeto. Aguardo retorno.

[Alexandre Neves]

oU

=Format(Month(Now),"mmmm")

[Leandro Mercúrio]

Simples:

=NomeMês(Mês(Agora()))

Ele retornará o nome do mês atual.

Editado Abril 27, 2017 por Leandro Mercúrio

[Jose Carlos Marques]

Como faço para que este Mês em questão venha com a primeira letra em maiusculo

=Format(Month(Now),"mmmm")

ou 

= MonthName(Month(Now()))