FUNCAO VERIFICA DIA DA SEMANA

ELMO01 24/05/2011 17:10:15
#374861
Oi pessoal

Necessito de uma função que verifique se o dia é SEGUNDA-FEIRA, TERÇA-FEIRA e assim por diante

Onrigado,
ELMO01 24/05/2011 17:26:09
#374863
Pessoal - Conseguir fazer, ficou assim:

Function Proc_Data()
Dim NEWSEMA As String
NEWSEMA = Weekday(Now.Date)
Select Case NEWSEMA
Case [Ô]1[Ô] [ô] Domingo
NEWSEMA = [Ô]Domingo[Ô]
Case [Ô]2[Ô] [ô] Segunda-Feira
NEWSEMA = [Ô]Segunda-Feira[Ô]
Case [Ô]3[Ô] [ô] Terça-Feira
NEWSEMA = [Ô]Terça-Feira[Ô]
Case [Ô]4[Ô] [ô] Quarta-Feira
NEWSEMA = [Ô]Quarta-Feira[Ô]
Case [Ô]5[Ô] [ô] Quinta-Feira
NEWSEMA = [Ô]Quinta-Feira[Ô]
Case [Ô]6[Ô] [ô] Sexta-Feira
NEWSEMA = [Ô]Sexta-Feira[Ô]
Case [Ô]7[Ô] [ô] Sábado
NEWSEMA = [Ô]Sábado[Ô]
End Select
Return NEWSEMA
End Function

e deu certo.
TECLA 24/05/2011 19:31:31
#374871
Se resolveu o problema, ENCERRE o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar