|
|
|
|
|
|
|
|
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
|
|
|
|
|
