Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Textbox para data r...
 
Notifications
Clear all

Textbox para data retorna errado

 
2024 - VBA & Macros
Post Recente por GabrSoares 8 anos atrás
2 Posts
2 Usuários
0 Reactions
903 Visualizações
RSS
 Rui Maciel
(@rui-maciel)
Posts: 0
New Member
Topic starter
 

Boa noite
Continua a acontecer a data quando lanço 08-02-2017 gravo como tal, contudo, quando retorno ao lançamento aparece 02-08-2017, na plan lança correto, no useform ProgramaParoquial está mal, troca o dia pelo mês, assim como, no userform frmPesquisa a coluna moeda e data também está errado. Este problema não estou a conseguir resolver podem-me ajudar, obrigado, ficaria bastante agradecido.
Utilizador: ADMIN
Senha: ADMIN

Grato desde já a todos vocês.
Att.,
RM

 
Postado : 08/02/2017 6:33 pm
 GabrSoares
(@gabrsoares)
Posts: 0
New Member
 

Rui, tudo bom?

Teste o código abaixo:

Sub PreenchData()
Dim strData As String: strData = txt_Data.Text
Dim intAno As Integer: intAno = Conversion.CInt(Strings.Right(strData, 4))
Dim intMes As Integer: intMes = Conversion.CInt(Strings.Mid(strData, 4, 2))
Dim intDia As Integer: intDia = Conversion.CInt(Strings.Left(strData, 2))

Cells(1, 1).Value = DateTime.DateSerial(intAno, intMes, intDia)

End Sub

Para simplificar, fiz o código preenchendo uma célula fixa, mas você pode flexibilizar.

Abs

https://br.linkedin.com/in/consultorgabrielsoares

 
Postado : 08/02/2017 7:59 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico