WEEKDAY ? - QUERO USAR UM MASKEDBOX NO LUGAR

WEBIER 28/06/2004 10:56:01
#31521
Coloquei num combo (cmbOrario) esse codigo:

Private Sub cmbOrario_GotFocus()
If Weekday(Date) = 2 Or Weekday(Date) = 4 Or Weekday(Date) = 6 Then
cmbOrario.AddItem "2Âê, 4Âê, 6Âê"
ElseIf Weekday(Date) = 3 Or Weekday(Date) = 5 Then
cmbOrario.AddItem "3Âê e 5Âê"
ElseIf Weekday(Date) = 7 Then
cmbOrario.AddItem "Sábados"
ElseIf Weekday(Date) = 1 Then
cmbOrario.AddItem "Domingos"
Else
cmbOrario.AddItem "Nenhum"
End If
End Sub

...Dependendo do dia da semana ele adiciona no combo um desses Text.

O que eu quero agora é que inves de eu usar DATE (data do dia) eu quero usar a data que está num maskedbox1 no formato dd/mm/yyyy...

Como eu faço isso
USUARIO.EXCLUIDOS 28/06/2004 11:06:56
#31525 Resposta escolhida
Tente

Private Sub cmbOrario_GotFocus()
Select case Weekday(MskEditBox.Text)
cmborario.clear
case 2,4,6
cmbOrario.AddItem "2Âê, 4Âê, 6Âê"
case 3 , 5
cmbOrario.AddItem "3Âê e 5Âê"
case 7
cmbOrario.AddItem "Sábados"
case 1
cmbOrario.AddItem "Domingos"
case Else
cmbOrario.AddItem "Nenhum"
end select
End Sub
USUARIO.EXCLUIDOS 28/06/2004 11:10:45
#31529
Lendo as dicas do LCSD mude meu exemplo para

Tente

Private Sub cmbOrario_GotFocus()
if isdate(mskEditBox.Text) then
Select case Weekday(MskEditBox.Text)
cmborario.clear
case 2,4,6
cmbOrario.AddItem "2Âê, 4Âê, 6Âê"
case 3 , 5
cmbOrario.AddItem "3Âê e 5Âê"
case 7
cmbOrario.AddItem "Sábados"
case 1
cmbOrario.AddItem "Domingos"
case Else
cmbOrario.AddItem "Nenhum"
end select
end if
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar