COMBO COM CONDICOES

WEBIER 23/06/2004 21:19:40
#30979
Como seria o codigo que fizesse o seguinte:

Se o dia de hoje (data do windows) for um dia de segunda, quarta ou sexta-feira na semana, o combo deve conter o text "2Âê, 4Âê e 6Âê"
Se o dia de hoje for um dia de terça ou quinta-feira na semana, o combo deve conter o text "3Âê e 5Âê"
Se o dia de hoje for um dia de Sábado na semana, o combo deve conter o text "Sábado"
Se o dia de hoje for um dia de Domingo na semana, o combo deve conter o text "Domingo"

Grato.
LCSD 24/06/2004 07:50:37
#30994 Resposta escolhida
Tente utilizar a função do Vb chamada de WEEKDAY

Ela te retornará que dia da semana cairá aquela data específica.

Portanto, se VC fizer WEEKDAY(date), de hoje por exemplo, ela te retornará o número 5 (quinta-feira).

O seu código ficaria mais ou menos assim:


if Weekday(date)=2 or Weekday(date)=4 or Weekday(date)=6 then
    combo.additem "2Âê, 4Âê, 6Âê"
elseif weekday(date)=3 or Weekday(date)=5 then
    combo.additem "3Âê e 5Âê"
elseif weekday(date)=7 then
    combo.additem "Sabado"
else
   combo.additem "Domingo"
endif


Precisa dar uma testada neste código acima e ver se funciona, ou talvez implementá-la melhor..... MAs a idéia é mais ou menos esta...
Tópico encerrado , respostas não são mais permitidas
Voltar