Dia da semana em vb do excell

[Denir]

Olá pessoal!

Estou com um projeto no visual basic e preciso de um auxilio.

Pergunto: Qual função e como reconhecer a celular como dia da semana = 1 (domingo) em vba excell

Ex: dia 01/08/2010 foi domingo como checo em vba;

Estou tentando até agora e nada consegui...

Agradeço quem poder me ajudar

[Márcio Rodrigues]

Não entendi, a função no Excel é a DIA.DA.SEMANA() que ira retornar um inteiro de 1 a 7. Em vba você poderia fazer algo assim:

Sub MyDates()

MyDate = Range("A1").Value

MyStr = Format(MyDate, "dddd") ' Retorna o dia da semana

MsgBox MyStr

End Sub

Veja se é por aí...

[Patropi]

Boa noite Denir

Veja se este código te ajuda:

Function DiaDaSemana(Data As String) As String

If IsDate(Data) Then

Select Case Format(Data, "w")

Case 1

DiaDaSemana = "Domingo"

Case 2

DiaDaSemana = "Segunda-feira"

Case 3

DiaDaSemana = "Terça-feira"

Case 4

DiaDaSemana = "Quarta-feira"

Case 5

DiaDaSemana = "Quinta-feira"

Case 6

DiaDaSemana = "Sexta-feira"

Case 7

DiaDaSemana = "Sábado"

End Select

Else

DiaDaSemana = "Data Inválida!"

End If

End Function

Exemplo:

=DiaDaSemana("19/09/2010")

a resposta vai ser Domingo.

Abraços

[Denir]

Boa noite Denir

Veja se este código te ajuda:

Function DiaDaSemana(Data As String) As String

If IsDate(Data) Then

Select Case Format(Data, "w")

Case 1

DiaDaSemana = "Domingo"

Case 2

DiaDaSemana = "Segunda-feira"

Case 3

DiaDaSemana = "Terça-feira"

Case 4

DiaDaSemana = "Quarta-feira"

Case 5

DiaDaSemana = "Quinta-feira"

Case 6

DiaDaSemana = "Sexta-feira"

Case 7

DiaDaSemana = "Sábado"

End Select

Else

DiaDaSemana = "Data Inválida!"

End If

End Function

Exemplo:

=DiaDaSemana("19/09/2010")

a resposta vai ser Domingo.

Abraços

Não consegui...

Detalhe..

Eu preciso desenvolver em macro(VBAI que se a data (01/08/2010) for domingo, calcule (ex: (1*2) e de o resultado na celula...

grato

[Márcio Rodrigues]

Tente isto

Sub MyDates()

MyDate = Range("A1").Value

MyStr = Format(MyDate, "dddd") ' Retorna o dia da semana

If UCase(MyStr) = "DOMINGO" Then

Range("B1").Value = (1 * 2)

End If

End Sub