Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Data Invertida!
Data Invertida!
Quando eu cadastro, a data fica correta. Ex: dd/mm/aaaa
Quando eu pesquiso, a data se inverte. Ex: mm/dd/aaaa
Como faço pra ficar a data correta sempre.
Obrigado.
Quando eu pesquiso, a data se inverte. Ex: mm/dd/aaaa
Como faço pra ficar a data correta sempre.
Obrigado.
-
- Colaborador
- Mensagens: 22
- Registrado em: Seg Jun 21, 2010 9:38 am
Re: Data Invertida!
Cara, eu tava com o mesmo problema. A solução que encontrei - com a ajuda do Tomás - foi selecionar, na planilha, a coluna referente as datas e alterar o valor para texto (formatar células --> Texto), porém vc vai ter que alterar as datas em todo o cadastro.
Re: Data Invertida!
Tomas, desculpa pela dúvidas. Como outras pessoas aqui no forum, sou um pouco leigo no assunto.
eu fiz assim e nao deu certo:
Esse código foi o que eu peguei daquele programinha que você me enviou: Cálculo de duração.
Grande Abraço!
eu fiz assim e nao deu certo:
Código: Selecionar todos
Private Sub txtRegiao_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call Calcular
End Sub
Private Sub txtPais_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call Calcular
End Sub
Private Sub Calcular()
If Me.txtPais.Text <> "" And Me.txtPais.Text <> "" Then
If IsDate(Me.txtRegiao.Text) And IsNumeric(Me.txtPais.Text) Then
Me.txtFax.Text = DateAdd("d", CInt(Me.txtPais.Text), CDate(Format("10/25/2010", "dd/MM/yyyy")(Me.txtRegiao.Text)))
Else
MsgBox "Ops! Tem erro nos dados digitados"
End If
End If
End Sub
Grande Abraço!
Re: Data Invertida!
Tomas me faz um grande favor, da uma olhada no programa que eu fiz. Me tira só outra dúvida referente a datas para nao mudar muito o foco do tópico, eu gostaria de diminuir 1 dia no resultado. Por ex: Inicio=01/01/2010 dias= 5
resultado=(Inicio+5)=06/01/2010 <==== o programa ta funcionando assim.
eu queria que contasse com o dia 1. Ex: (inicio+5)= 05/01/2010.
Te agradeceria muito.
To terminando o programa, só ta faltando essas dúvidas.
Grande abraço
Silvestre
resultado=(Inicio+5)=06/01/2010 <==== o programa ta funcionando assim.
eu queria que contasse com o dia 1. Ex: (inicio+5)= 05/01/2010.
Te agradeceria muito.
To terminando o programa, só ta faltando essas dúvidas.
Grande abraço
Silvestre
- Anexos
-
- MODELO DE CADASTRO TOMAS.rar
- (45.22 KiB) Baixado 585 vezes
Resolvido
Consegui ajeitar as datas com esse código:
Tomas e sobre a data -1 dia?
Abraços!
Código: Selecionar todos
Private Sub txtFax_Change()
txtFax.Value = VBA.Format(Me.txtFax.Text, "dd/mm/yyyy")
End Sub
Abraços!
Re: Data Invertida!
Colega,
Use o DateAdd, mas informa datas negativas, por exemplo:
O código acima mostra a data de ontém, ou seja, hoje menos 1 dia.
Abraços
Use o DateAdd, mas informa datas negativas, por exemplo:
Código: Selecionar todos
MsgBox DateAdd("d", -1, Now)
Abraços