Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Denir

Dia da semana em vb do excell

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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í...

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • 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

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    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

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Crie uma conta ou entre para comentar

    Você precisar ser um membro para fazer um comentário






    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

    Direitos autorais

    Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

    ×