USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Achar o dia da semana, a partir de uma data digitada no text
Postada em 20/10/2006 por Álvaro            
Cria uma variável na qual vai ser lançada a data digitada, coloca no evento keyascii do text, ficaria algo assim

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        text1.text=format(text1.text,"@@/@@/@@@@") 'para garantir que o que foi digitado é uma data válida
        if cdate(isdate(text1.text))=True then ' se a data for válida
            Dim Data
            Data = Format(Text1.Text, "dddd")
            MsgBox "O dia da semana é: " & Data
        else
            Msgbox "Digite uma data válida"
            Text1.text=""
            Text1.setfocus
        endif
    End If
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página