TEXTBOX SALVANDO COM DATA INVERTIDA

[moreira_logistica]

Bom dia.

Estou com dificuldade em relação a formatação de data.

Meus campos de formatação de data estão salvando invertido, exemplo:

Digito 06/05/2016 e está salvando 05/06/2016.

Conto com o apoio de vocês.

Li alguns posts sobre o assunto mas não consegui adaptar.
Segue a minha linha de código que transfere a informação para o banco de dados.

ActiveCell.Offset(0, 12).Value = TextBox4.Value

Atte.

Thiago Santos

[netocasaroli]

Thiago,

Tente da seguinte forma:

ActiveCell.Offset(0, 12).Value = Format(TextBox4.Value,"dd/mm/yyyy")

[Mikel Silveira Fraga]

Thiago, boa tarde.

Caso a dica do Neto não funcione, inverta as posições do dia e mês, conforme abaixo:

Código: Selecionar todos

ActiveCell.Offset(0, 12).Value = Format(TextBox4.Value,"mm/dd/yyyy")

Já passei por isso e, não sei explicar o que acontece, mas em alguns momentos, quando a data exibida em uma célula, invertem as posições de dia e mês.

Neto, essa foi mais uma das maluquices que aconteceu comigo no Excel, por isso fica ai a dica caso ocorra com mais alguém.

Abraço a todos e excelente final de semana.

[moreira_logistica]

Boa tarde Neto

Desta forma agora quando salva ele salva como (-1) no banco de dados.

Atte.

Thiago Santos

[netocasaroli]

Thiago,

Neste caso, seria interessante ver a configuração de campo de seu banco de dados, ou depurar seu código passo a passo e ver em que momento a informação da data está se perdendo.



Mikel,

Realmente o Excel é cheio dessas "gracinhas"... Obrigado pela dica!!!

[moreira_logistica]

Ok

Vou tentar achar e fazer uma gambi kkk

[moreira_logistica]

Prezados bom dia.

Analisei e tentei arrumar mas não consegui. Ainda salva com data invertida.

Segue projeto desbloqueado anexo. Se puderem me dar uma ajuda agradeceria.

Atte.

Thiago Santos

[EdsonSM]

Tive o mesmo problema, resolvi usando a função Cdate, verifica se resolve.

Sub data()

Range("A2") = CDate(InputBox("Insira a data"))

End Sub

[DANILO SAMBA]

Tenta Assim Cara

Código: Selecionar todos

ActiveCell.Offset(0, 12).Value = cdate(TextBox4)

Lembrando que também existe:
CDate = converter em data
CInt = Converte Variavel ou expressão em Inteiro
CCur = Converte Variavel ou expressão em Motentário
CDbl = Esta Função converte uma variável ou expressão para o tipo Double (usado para números grandes com casas decimais)
Clng = converte uma variável ou expressão para o tipo Long, não podendo o seu argumento ser um texto ou estar fora da faixa admitida pelo tipo Long, para não gerar erro em tempo de execução
CStr = converte uma variável ou expressão para o tipo String


em alguns casos essas funções podem ate dispensar a declaração de variáveis.