Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
TEXTBOX SALVANDO COM DATA INVERTIDA
-
- Colaborador
- Mensagens: 23
- Registrado em: Ter Mar 29, 2016 12:45 am
TEXTBOX SALVANDO COM DATA INVERTIDA
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
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
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
Re: TEXTBOX SALVANDO COM DATA INVERTIDA
Thiago,
Tente da seguinte forma:
ActiveCell.Offset(0, 12).Value = Format(TextBox4.Value,"dd/mm/yyyy")
Tente da seguinte forma:
ActiveCell.Offset(0, 12).Value = Format(TextBox4.Value,"dd/mm/yyyy")
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: TEXTBOX SALVANDO COM DATA INVERTIDA
Thiago, boa tarde.
Caso a dica do Neto não funcione, inverta as posições do dia e mês, conforme abaixo:
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.
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")
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.
Editado pela última vez por Mikel Silveira Fraga em Sex Mai 06, 2016 1:19 pm, em um total de 1 vez.
-
- Colaborador
- Mensagens: 23
- Registrado em: Ter Mar 29, 2016 12:45 am
Re: TEXTBOX SALVANDO COM DATA INVERTIDA
Boa tarde Neto
Desta forma agora quando salva ele salva como (-1) no banco de dados.
Atte.
Thiago Santos
Desta forma agora quando salva ele salva como (-1) no banco de dados.
Atte.
Thiago Santos
- netocasaroli
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
Re: TEXTBOX SALVANDO COM DATA INVERTIDA
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!!!
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!!!
-
- Colaborador
- Mensagens: 23
- Registrado em: Ter Mar 29, 2016 12:45 am
-
- Colaborador
- Mensagens: 23
- Registrado em: Ter Mar 29, 2016 12:45 am
Re: TEXTBOX SALVANDO COM DATA INVERTIDA
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
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
- Anexos
-
- SISLOG.rar
- (168.23 KiB) Baixado 291 vezes
Re: TEXTBOX SALVANDO COM DATA INVERTIDA
Tive o mesmo problema, resolvi usando a função Cdate, verifica se resolve.
Sub data()
Range("A2") = CDate(InputBox("Insira a data"))
End Sub
Sub data()
Range("A2") = CDate(InputBox("Insira a data"))
End Sub
-
- Colaborador
- Mensagens: 19
- Registrado em: Qui Mar 24, 2016 10:07 am
Re: TEXTBOX SALVANDO COM DATA INVERTIDA
Tenta Assim Cara
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.
Código: Selecionar todos
ActiveCell.Offset(0, 12).Value = cdate(TextBox4)
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.