Contexto: tenho o seguinte código que recebe do usuário uma data:
dataAtualDefault = Day(Date) & "/" & Month(Date) & "/" & Year(Date)
dataInsercao = Application.InputBox("Data da entrada", "Entrada", dataAtualDefault)
Problema: caso o usuário cometa um typo e insira uma data em que o mês seja maior que 12, como, por exemplo, 09/15/2020, o valor do mês é invertido com o do dia, e a variável passa a ter o seguinte valor: 15/09/2020
Soluções que já tentei mas não deram certo:
- Essa não deu certo porque o mês e dia são invertidos antes do
If
If(Month(dataInsercao ) > 12) Then
MsgBox("Erro!")
End If
Format
não me ajuda pois converte para uma String, mas eu realmente preciso que a variável seja do tipo Date
Format(dataInsercao , "dd/mm/yyyy")
mês/dia/ano
, o que você vai fazer com a data?