Solucionado (ver solução)
Solucionado
(ver solução)
3
respostas

Dia e mes trocado na data

Sheets("Financeiro").Cells(linha, 2) = UserForm1.Data.Text

Estou pegando o valor inserido no Form e mandando para a planilha "Financeiro", porém quando o dia é menor que 12, esta gravando no formato MM/DD/AAAA ex.: se a data digitada é 12/03/2018, grava na planilha 03/12/2018 ex.: se a data digitada é 13/03/2018, grava na planilha corretamente.

Como corrigir para vir sempre no formato DD/MM/AAAA?

3 respostas

Oi Fernando, tudo bem ?

Será que não está pegando o padrão do sistema operacional ?

Algo que pode fazer é isso aqui : https://support.office.com/en-us/article/change-the-date-system-format-or-two-digit-year-interpretation-aaa2159b-4ae8-4651-8bce-d4707bc9fb9f

Olá Matheus, segui o link que você mandou, porem continua gravando errado.

solução!
Sheets("Financeiro").Cells(linha, 2) = CDate(FrmFinanceiro.Data.Value)

Olá, pesquisei em foruns na web e achei a solução a cima, testei e deu certo. Muito obrigado.