Ir para conteúdo
Fórum Script Brasil
  • 0

Aceitar apenas data como dado válido


Cliany

Pergunta

Fala pessoal em um text box do meu formulário quero que aceite apenas valores de data fiz dessa forma:
 

If Not IsDate(Me.MP1_PG1_DtDevolBX.Value) Or Len(Me.MP1_PG1_DtDevolBX.Value) <> 10 Then

    MsgBox "Digite uma data de devolução de pasta válida no formato DD/MM/AAAA!", vbCritical
    
    Application.ScreenUpdating = True
    
    Exit Sub

End If

 

Até ae tudo bem, só que apenas a primeira condicional Not IsDate ele aceita valores de horário, por isso coloquei a segunda condicional para ter 10 caracteres (DD/MM/AAAA),só que ainda aceita valores como 14:52:0000. Tem alguma forma mais prática de aceitar só data em determinado formato como valor?

Outra coisa, alguém sabe porque datas antes de 1800 dá um erro de definição de variável? :S

 

 

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

fala meu amigo 

tenta usar uma mascara de formatação

Private Sub MP1_PG1_DtDevolBX_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

MP1_PG1_DtDevolBX.MaxLength = 10 '10/10/2014
 Select Case KeyAscii
      Case 8       'Aceita o BACK SPACE
      Case 13: SendKeys "{TAB}"    'Emula o TAB
      Case 48 To 57
         If MP1_PG1_DtDevolBX.SelStart = 2 Then MP1_PG1_DtDevolBX.SelText = "/"
         If MP1_PG1_DtDevolBX.SelStart = 5 Then MP1_PG1_DtDevolBX.SelText = "/"
      Case Else: KeyAscii = 0     'Ignora os outros caracteres
   End Select

End Sub

 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...