MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Identificar a recorrência de um dia da Semana.

    avatar
    krsantos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 04/01/2013

    Identificar a recorrência de um dia da Semana. Empty Identificar a recorrência de um dia da Semana.

    Mensagem  krsantos 14/11/2017, 12:54

    Olá pessoal tudo bem!
    Estou quebrando a cabeça e não consegui chegar a uma solução.

    Eu preciso informar uma data qualquer ex: 11/11/2017 e uma função precisa identificar qual o dia da semana e qual a recorrência dele dentro do mês.

    Ex: 1
    11/11/2017 -> Sábado do Mês.

    Ex: 2
    17/11/2017 -> Sexta-Feira do Mês.

    Logo, qualquer data que eu inserir a função precisa identificar qual o dia da semana e qual a recorrência dentro do mês.

    Alguém conhece alguma forma de fazer isso?


    .................................................................................
    Krsantos
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    Identificar a recorrência de um dia da Semana. Empty Re: Identificar a recorrência de um dia da Semana.

    Mensagem  thiagomcosta 14/11/2017, 16:09

    Fiz uma função que retorna uma matriz com 2 valores, sendo:
    O primeiro valor (0) retorna o dia da semana
    O segundo valor (1) retorna a quantidade que apareceu naquele mês

    Código:

    Public Function ContaDiaSemana(pData As Date)
    'Criada por Thiago de Mello Costa

    Dim vDiaSemana, vContagem, vDia, vMes, vAno
    Dim vRetorno()

    vDia = Day(pData)
    vMes = Month(pData)
    vAno = Year(pData)
    vDiaSemana = Weekday(pData)
    vContagem = 0

    For i = 1 To vDia
        If Weekday(DateSerial(vAno, vMes, i)) = vDiaSemana Then
            vContagem = vContagem + 1
        End If
    Next

    ReDim vRetorno(2)

    vRetorno(0) = WeekdayName(vDiaSemana)
    vRetorno(1) = vContagem

    ContaDiaSemana = vRetorno

    End Function

    Para testar criei o código abaixo:

    Código:
    Sub TestaFuncaoData()
    Dim vMatriz, vQualData, vOrdinal

    vQualData = InputBox("Digite Data")

    If Not IsDate(vQualData) Then Exit Sub

    vMatriz = ContaDiaSemana(CDate(vQualData))
    If Weekday(vQualData, 2) >= 6 Then
        vOrdinal = "º"
    Else
        vOrdinal = "ª"
    End If

    MsgBox vMatriz(1) & vOrdinal & " " & vMatriz(0) & " do Mês."

    End Sub

    Se alguém souber um jeito de fazer aplicando menos linhas e quiser fazer o favor de disponibilizar.
    Gostaria de fazer isso de um jeito mais simples.
    avatar
    krsantos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 04/01/2013

    Identificar a recorrência de um dia da Semana. Empty Resolvido

    Mensagem  krsantos 24/11/2017, 14:32

    Código, sensacional.
    Funcionou perfeitamente.
    Muito obrigado.


    .................................................................................
    Krsantos
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Identificar a recorrência de um dia da Semana. Empty Re: Identificar a recorrência de um dia da Semana.

    Mensagem  FabioPaes 24/11/2017, 15:13

    Se a duvida foi resolvida, por favor marque o Tópico como Resolvido!

    Até a Próxima se Deus quiser! O Fórum agradece!!!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    Identificar a recorrência de um dia da Semana. Empty Re: Identificar a recorrência de um dia da Semana.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:08