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


2 participantes

    [Resolvido]Contar dia específico em um período de data

    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Contar dia específico em um período de data

    Mensagem  ricardoball 27/10/2012, 12:02

    Olá senhores mestres, primeiramente gostaria de agradecer e elogiar o empenho que vejo em vocês de ajudar-nos que entendemos pouco de access.

    Minha dúvida acredito ser simples, eu gostaria de informar um período, data Inicial e data final, e dentro desse período, eu gostaria de saber quantas segundas feira teve, ou terça feira ou qualquer outro dia que eu especificar
    ex.
    data inicial: 01/10/2012 / data final: 30/10/2012 / campo total de dia específico: 5

    Muito Obrigado a quem possa me ajudar
    Abraço


    Última edição por criquio em 27/10/2012, 14:07, editado 1 vez(es) (Motivo da edição : Adaptar o título às normas do fórum)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  criquio 27/10/2012, 14:06

    Olá, seja bem vindo ao fórum!

    Tente algo como:

    Código:
    Dim D As Date, N As Integer

    For D = Me.txtDataInicial To Me.txtDataFinal
        If WeekDay(D) = 1 Then
            N= N + 1
        End If
    Next

    Me.txtTotalDias = N
    No exemplo, conta-se os domingos, caso o pc esteja configurado para começar a semana no domingo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Funcionou

    Mensagem  ricardoball 28/10/2012, 00:06

    Mestre Criquio, funcionou perfeitamente. Muito Obrigado...

    Seria abusar se eu pedisse uma ajuda na questão de feriados, pois tenho uma tabela de feriados com 02 campos:

    Tabela = tblferiado
    campo 01 = txtdataferiado - informo a data do feriado ex: 25/12/2012
    campo 02 = txtnomeferiado - informo o nome do feriado ex: Natal

    Eu gostaria de utilizar o cód que você me enviou com essa tabela, é possível?

    Grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  criquio 28/10/2012, 12:51

    Você quer contar os feriados entre duas datas na tabela? Se for, coloque na origem do campo:

    Código:
    =DCount("*";"NomeDaTabela";"CampoData>=#" & Format([CampoDataInicial];"mm/dd/yyyy") & "# And CampoData<=#" & Format([CampoDataFinal];"mm/dd/yyyy") & "#")


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  ricardoball 28/10/2012, 17:19

    Na verdade o que eu quero é que dentro do período em que eu separo os dias específicos, se houver feriados, eles sejam descontados.

    ex.
    período: 01/10/2012 (segunda feira) a 13/10/2012 (sábado)
    Nesse período eu to contando as segunda feiras que são duas - 01/10/2012 e 08/10/2012.
    Supondo que no dia 01/10/2012 fosse feriado então ao invés de o sistema retornar 2 segunda feiras ele me retornaria somente 1
    pois houve um feriado.

    Acredito que dentro do código que me enviou se houver um jeito de ler minha tabela de feriados e dai não contabilizar aquele dia.

    Espero ter explicado bem de desculpe o abuso..

    Grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  criquio 28/10/2012, 18:45

    Tente assim:

    Código:
    Dim D As Date, N As Integer, rs As Recordset

    For D = Me.txtDataInicial To Me.txtDataFinal
        If WeekDay(D) = 1 Then
            Set rs = CurrentDb.OpenRecordset("Select CampoData FROM TabelaDeFeriados WHERE CampoData=#" & Format(D, "mm/dd/yyyy") & "#")
            If rs.RecordCount = 0 Then
                N= N + 1
            End If
            rs.Close
            Set rs = Nothing
        End If
    Next

    Me.txtTotalDias = N


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  ricardoball 28/10/2012, 19:06

    Criquio, é exatamente isso, perfeito.

    Mais uma vez obrigado...

    Problema resolvido

    Grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  criquio 28/10/2012, 19:39

    Grato pelo retorno. Só faltou clicar no botão Resolvido. Dessa vez eu mesmo clico.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  ricardoball 28/10/2012, 19:55

    Ok desculpa, eu não sabia do botão
    Grato
    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  ricardoball 28/10/2012, 19:56

    Resolvido
    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Contar dia específico em um período de data - Contar vários dias em único botão

    Mensagem  ricardoball 31/10/2012, 20:24

    Criquio, desculpe se estou usando o caminho errado reativando um posto "resolvido".

    Mas eu queria lhe lembrar o que eu havia perguntado. De fato a questão foi resolvida mas tenho uma outra pergunta.

    Eu preciso contar as segundas, terças, quartas, quintas e sextax, excluindo feriados se houver. Usei o código que você me mandou alterando somente o dia, segunda (2), terça (3) e assim por diante. Só que quando pus todos os código em um único evento ao clicar de um botão, deu erro.
    Portanto fiz um botão para cada dia...

    Tem como eu colocar em um único botão e ele me trazer o resultado de todos os dias?

    Ex. período de 01/10/2012 a 31/10/2012
    Retorno Segunda 5, terça 5, quarta 5, quinta 4, sexta 4

    Lembrando que preciso só dos valores numéricos igual ao o que seu código me traz, só preciso é ter todos os resultados clicando em apenas um botão.


    Espero que eu não tenha enrolado muito

    Obrigado e desculpe o abuso
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  criquio 31/10/2012, 21:45

    Podemos fazer com uma simples, pequena e única funçãozinha. Para isso, recomendo ter os campos txtDataInicial e txtDataFinal para a inserção das datas e, alem desses, nomear os campos de domingo a sábado como txt1 a txt7. Isso facilitará a enxugar o código, pois os nomes dos campos serão passados de acordo o dia da semana. Veja:

    Código:
    Dim D As Date, rs As Recordset

    For D = Me.txtDataInicial To Me.txtDataFinal
        Set rs = CurrentDb.OpenRecordset("Select Data FROM tblFeriados WHERE Data=#" & Format(D, "mm/dd/yyyy") & "#")
            If rs.RecordCount = 0 Then
                Me("txt" & Weekday(D)) = Nz(Me("txt" & Weekday(D)), 0) + 1
            End If
        rs.Close
        Set rs = Nothing
    Next
    Teste se é isso mesmo que quer. Caso queira apenas de segunda a sexta, basta nomear os cinco campos como txt2 a txt6.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  ricardoball 31/10/2012, 23:24

    Criquio, fiz conforme você falou, criei cinco campos pois só me interessa de segunda a sexta e coloquei os nomes de txt2 para segunda e fui até txt6 sexta.

    Mas quando executo ele retorna 1 em todos os campos e me diz que não conseguiu localizar o campo "txt7" referido em minha expressão.

    Você entende o que está errado?

    Grato pela atenção
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  criquio 31/10/2012, 23:42

    Altere a condicional para excluir esses dias:

    Código:
    ...
            If rs.RecordCount = 0 And Weekday(D) <> 1 And Weekday(D) <> 7 Then
    ...


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  ricardoball 31/10/2012, 23:59

    Perfeito mestre Criquio, funcionou perfeitamente..
    Que Deus lhe abençoe...

    Grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  criquio 1/11/2012, 00:53

    Grato pelo retorno. Só mais uma dica, caso possa ter a possibilidade de ter que calcular um intervalo depois de já ter dados nos campos. Para não contar os dados dos campos com o novo cálculo, precisará limpar os dados anteriores. Para isso, basta ter mais uma variável do tipo Integer e inserir um For Next antes do que já tem:

    Código:
    Dim D As Date, rs As Recordset, N As Integer

    For N = 2 To 6
        Me("txt" & N) = Null
    Next
    ...


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ricardoball
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/09/2011

    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  ricardoball 1/11/2012, 22:18

    Muito obrigado Criquio, realmente percebi que ele acumulava os valores conforme eu clicava, eu ia bloquear o botão caso ja tivesse clicado uma vez... mas com esse add resolveu meu problema... muito obrigado, realmente sou grato a disposição de vocês em nos ajudar...

    Grato

    Conteúdo patrocinado


    [Resolvido]Contar dia específico em um período de data Empty Re: [Resolvido]Contar dia específico em um período de data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:50