VERIFICAR DIA DA SEMANA

USUARIO.EXCLUIDOS 02/06/2007 10:19:53
#219449

Como faço para Verificar se hoje for sábado então mostrar a mensagem "sábado dia 02 de junho de 2007."
USUARIO.EXCLUIDOS 02/06/2007 11:01:21
#219454 Resposta escolhida
Assim:

msgbox DiaSemana(date) & " dia " & day(date) & " de " & RetornaMes(month(date),false) & " de " & year(date) & "."

function DiaSemana(byval vsData as string) as string

   dim iDia as integer

   iDia=weekday(vsData)
 
   select case iDia
  
   case iDia=1
        DiaSemana="Domingo"
   case iDia=2
        DiaSemana="Segunda"
   case iDia=3
        DiaSemana="Terça"
   case iDia=4
        DiaSemana="Quarta"
   case iDia=5
        DiaSemana="Quinta"
   case iDia=6
        DiaSemana="Sexta"
   case iDia=7
        DiaSemana="Sábado"

   end select

end Function


Function RetornaMes(ByVal viMes As Integer, Optional ByVal vbMaiusculo As Boolean) As String

    Select Case viMes
        Case 1, -11
            RetornaMes = IIf(vbMaiusculo, "JANEIRO", "Janeiro")
        Case 2, -10
            RetornaMes = IIf(vbMaiusculo, "FEVEREIRO", "Fevereiro")
        Case 3, -9
            RetornaMes = IIf(vbMaiusculo, "MARÇO", "Março")
        Case 4, -8
            RetornaMes = IIf(vbMaiusculo, "ABRIL", "Abril")
        Case 5, -7
            RetornaMes = IIf(vbMaiusculo, "MAIO", "Maio")
        Case 6, -6
            RetornaMes = IIf(vbMaiusculo, "JUNHO", "Junho")
        Case 7, -5
            RetornaMes = IIf(vbMaiusculo, "JULHO", "Julho")
        Case 8, -4
            RetornaMes = IIf(vbMaiusculo, "AGOSTO", "Agosto")
        Case 9, -3
            RetornaMes = IIf(vbMaiusculo, "SETEMBRO", "Setembro")
        Case 10, -2
            RetornaMes = IIf(vbMaiusculo, "OUTUBRO", "Outubro")
        Case 11, -1
            RetornaMes = IIf(vbMaiusculo, "NOVEMBRO", "Novembro")
        Case 12, 0
            RetornaMes = IIf(vbMaiusculo, "DEZEMBRO", "Dezembro")
    End Select

End Function


Espero ter ajudado.
RODRIGOGBGOMES 02/06/2007 20:19:33
#219484
so discordo do amigo FRAU pra descobrir o nome do mês;
tenta...
SuaTextBox.Text = MonthName(NumeroDoMes)

se for direto de uma variavel ou um componente q contenha uma data, tente isso


SuaTextBox.Text = MonthName(Month(Data))
USUARIO.EXCLUIDOS 03/06/2007 15:51:00
#219523
RODRIGOGBGOMES, este comando eu não sabia que existia...Muito bom.

ENTÃO, RENATOOTANER, faça assim:

msgbox DiaSemana(date) & " dia " & day(date) & " de " & monthname(month(date)) & " de " & year(date) & "."

Daí vc só utiliza a função (DiaSemana) que postei...
USUARIO.EXCLUIDOS 03/06/2007 16:14:18
#219525
FRAU,
Para algoritmos mais simples como esse o uso da função Choose cai melhor que o uso de Select Case.

Public Function DayOfWeek(dt As Date) As String
    DayOfWeek = Choose(Weekday(dt), "Domingo", "Segunda", "Terça", _
					"Quarta", "Quinta", "Sexta", "Sábado")
End Function
USUARIO.EXCLUIDOS 06/06/2007 10:11:58
#219977
O que preciso mesmo é apenas para o dia de sábado:
Se hoje for sábado ou saturday que execute tal tarefa. Apenas isso.

Assim como faria por uma data. Se hoje for data tal, então execute tal tarefa.

Só não sei como fazer com o dia da semana.

Não posso fazer por data porque preciso que seja realizado em todos os sábados.
USUARIO.EXCLUIDOS 06/06/2007 10:51:40
#219992
Para ver se hoje é sabado e executar tal tarefa é assim:

if weekday(date)=7 then 'Verifica se é sabado
'Coloque aqui sua execução da tal tarefa
end if

Agora para comparar uma data qualquer com a data de hoje (sistema)
é assim:

if date = "06/06/2007" then 'Se hoje for data tal...
'Excute...
end if

EXPLICA MELHOR ISTO:

Citação:

Não posso fazer por data porque preciso que seja realizado em todos os sábados.



NÃO ENTENDI, SE VC NÃO USAR DATA COMO VAI SABER SE é SABADO...ESTRANHO.
Tópico encerrado , respostas não são mais permitidas
Voltar