Galera

 

Como saber qual dia da semana de determinada data . . . por exemplo . . . quero saber qual o dia da semana cai a data X; por exemplo:

 

a data 10/07/2002 foi uma sexta-feira (por exemplo)

 

Att

Tenho esta funcao que faz isso

 

'Pega a data e devolve uma string com o dia da semana
Function dia_semana(data_aux As Date) As String
    Select Case WeekDay(data_aux)
        Case 1: dia_semana = "Domingo"
        Case 2: dia_semana = "Segunda feira"
        Case 3: dia_semana = "Terça feira"
        Case 4: dia_semana = "Quarta feira"
        Case 5: dia_semana = "Quinta feira"
        Case 6: dia_semana = "Sexta feira"
        Case 7: dia_semana = "Sabado"
    End Select
End Function

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2109&Classificacao=

 

só mude a chamade de:

text1.text = ExtensoSemana("16/03/2001")

Para:

text1.text = ExtensoSemana(Format("10/07/2002", "DD/MM/YYYY"))

 

 

A primeira chamada não funcionaria no meu sistema pois uso Windows em Inglês e o formato da minha data esta como MM/DD/YYYY, para não passar por uma situação parecida, formate a data para DD/MM/YYYY.

Tenta assim

TExt = format (Now,"DDDDDD")

 

 

Marcos Noguiera