Início
![[Resolvido]Extrair o Mês de um campo data Empty](https://2img.net/i/empty.gif)
Connekta Informatica 10/9/2011, 16:54Bom dia,
Eu tenho um campo data (10/09/2011) tem extrair o mês (09) desse campo?
Obrigado.
Eu tenho um campo data (10/09/2011) tem extrair o mês (09) desse campo?
Obrigado.
3 participantes
[Resolvido]Extrair o Mês de um campo data
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Uma correcção. Com este código faz isso ao digitar directamente no campo. Penso que seja isso que quer?
NomedoCampo = MesExtenso(Month(NomedoCampodata))
NomedoCampo = MesExtenso(Month(NomedoCampodata))
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Amigo, desculpe que a minha internet caiu por 2X e não terminei direito a explicação:
Pode definir o campo na tabela com máscara assim:
00-00-0000;0;_
Pode utilizar uma outra caixa de texto para recolher ou então utilizar esta função:
Function MesExtenso(Mes as Integer)As String
Select Case Mes
Case 1
MesExtenso = "Janeiro"
Case 2
MesExtenso = "Fevereiro"
Case 3
MesExtenso = "Março"
Case 4
MesExtenso = "Abril"
Case 5
MesExtenso = "Maio"
Case 6
MesExtenso = "Junho"
Case 7
MesExtenso = "Julho"
Case 8
MesExtenso = "Agosto"
Case 9
MesExtenso = "Setembro"
Case 10
MesExtenso = "Outubro"
Case 11
MesExtenso = "Novembro"
Case 12
MesExtenso = "Dezembro"
End Function
No formulário chame a função no campo que quer por extenso
Nomedocampo = MesExtenso(Month(seucampoData))
Pode definir o campo na tabela com máscara assim:
00-00-0000;0;_
Pode utilizar uma outra caixa de texto para recolher ou então utilizar esta função:
Function MesExtenso(Mes as Integer)As String
Select Case Mes
Case 1
MesExtenso = "Janeiro"
Case 2
MesExtenso = "Fevereiro"
Case 3
MesExtenso = "Março"
Case 4
MesExtenso = "Abril"
Case 5
MesExtenso = "Maio"
Case 6
MesExtenso = "Junho"
Case 7
MesExtenso = "Julho"
Case 8
MesExtenso = "Agosto"
Case 9
MesExtenso = "Setembro"
Case 10
MesExtenso = "Outubro"
Case 11
MesExtenso = "Novembro"
Case 12
MesExtenso = "Dezembro"
End Function
No formulário chame a função no campo que quer por extenso
Nomedocampo = MesExtenso(Month(seucampoData))
Nogaro513 gosta desta mensagem
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
Ok!Obrigado.
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Um abraço e bom trabalho
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Não sei se eu não entendi bem a questão, mas um =Format([CampoDaData];"mmmm") tambem não resolveria? É só curiosidade para saber se entendi mal ou não 
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Nogaro513 gosta desta mensagem
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Tenho a certeza que sim, mas a função garante o resultado.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Aliás o Mestre costumava dizer...tantas maneiras de fazer Nestum....
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Ah sim. Certíssimo. É que eu fiquei na dúvida se tinha entendido bem a questão proposta pelo colega. Pensei que talvez eu tivesse entendido outra coisa
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Conteúdo patrocinado