Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Data Invertida!

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
hidden
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Jun 24, 2010 5:10 pm

Data Invertida!

Mensagem por hidden »

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.

Imagem
Imagem
Imagem

Obrigado.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


naldoprofeta
Colaborador
Colaborador
Mensagens: 22
Registrado em: Seg Jun 21, 2010 9:38 am

Re: Data Invertida!

Mensagem por naldoprofeta »

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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Data Invertida!

Mensagem por webmaster »



hidden
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Jun 24, 2010 5:10 pm

Re: Data Invertida!

Mensagem por hidden »

Tomas, desculpa pela dúvidas. Como outras pessoas aqui no forum, sou um pouco leigo no assunto.
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
Esse código foi o que eu peguei daquele programinha que você me enviou: Cálculo de duração.
Grande Abraço!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


hidden
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Jun 24, 2010 5:10 pm

Re: Data Invertida!

Mensagem por hidden »

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
Anexos
MODELO DE CADASTRO TOMAS.rar
(45.22 KiB) Baixado 585 vezes


hidden
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Jun 24, 2010 5:10 pm

Resolvido

Mensagem por hidden »

Consegui ajeitar as datas com esse código:

Código: Selecionar todos

Private Sub txtFax_Change()
txtFax.Value = VBA.Format(Me.txtFax.Text, "dd/mm/yyyy")
End Sub
Tomas e sobre a data -1 dia?
Abraços!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Data Invertida!

Mensagem por webmaster »

Colega,

Use o DateAdd, mas informa datas negativas, por exemplo:

Código: Selecionar todos

MsgBox DateAdd("d", -1, Now)
O código acima mostra a data de ontém, ou seja, hoje menos 1 dia.

Abraços


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder