Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Valor de uma Inputb...
 
Notifications
Clear all

Valor de uma Inputbox em formato específico

 
2024 - VBA & Macros
Post Recente por klarc28 5 anos atrás
4 Posts
2 Usuários
0 Reactions
1,561 Visualizações
RSS
 LuizCAF
(@luizcaf)
Posts: 3
New Member
Topic starter
 

Olá,
Tenho um form que necessita de alguns dados pra rodar, para tal criei um código que abre uma inputbox que solicita uma data mensal, porém, como o formato da valor da inputbox sempre é string, gostaria de saber se existe uma forma de garantir que o usuário digite uma data no formato 'mm/aa' ou que os dados que ele escrever se transformem nisso, preciso que esteja sempre no formato string também.
Desde já agradeço seu tempo.

 
Postado : 07/01/2020 7:02 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Sub teste()


Dim dt As Date
dt = InputBox("Informe a data")
dt = Format(dt, "dd/mm")


End Sub
 
Postado : 07/01/2020 7:59 am
 LuizCAF
(@luizcaf)
Posts: 3
New Member
Topic starter
 

Nesse caso, está dia/mês, para virar mês/ano basta trocar o comando format para Format(dt, "mm/yy")?

 
Postado : 07/01/2020 9:48 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Sub teste()

Dim sd As String
Dim dt As Date
dt = CDate(InputBox("Informe a data"))


Dim mes As Integer
Dim ano As Integer

mes = Month(dt)
ano = Year(dt)
ano = Right(ano, 2)

sd = mes & "/" & ano

MsgBox sd


End Sub
 
Postado : 07/01/2020 3:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico