MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Contar dias entre datas

    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 619
    Registrado : 14/12/2010

    [Resolvido] Contar dias entre datas Empty [Resolvido] Contar dias entre datas

    Mensagem  julianovv em 21/9/2019, 20:55

    Boa tarde. Tenho uma consulta com datas completas e gostaria de contar os dias que elas foram digitadas na coluna "Data Hoje". Segue um exemplo:

    Exemplo da tabela:
    drive.google.com/open?id=11t-ul78JNEC0d22DhFV5_HTFmq03uNRA

    No campo 'Dia/Mês/Ano' é digitada a data real.
    No campo 'Ano Título' é o ano extraído da data.
    No campo 'Data Hoje' é a data que foi digitado o registro.

    Tentei usar a função DataDif e não funcionou pois fez o cálculo a partir da data atual. Preciso que os dias sejam contados entre os anos na coluna.

    Obrigado!

    Rolling Eyes


    Última edição por julianovv em 30/9/2019, 18:15, editado 1 vez(es)


    .................................................................................
    Juliano

    Uso o Access 2007 no XP Professional SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 745
    Registrado : 12/04/2016

    [Resolvido] Contar dias entre datas Empty Re: [Resolvido] Contar dias entre datas

    Mensagem  marcelo marques em 21/9/2019, 21:33

    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 619
    Registrado : 14/12/2010

    [Resolvido] Contar dias entre datas Empty Re: Contar dias entre datas

    Mensagem  julianovv em 22/9/2019, 21:46

    Obrigado pela dica. É boa para busca de registros específicos mas no meu caso não dá pra jogar essa expressão para cada ano.

    Wink


    .................................................................................
    Juliano

    Uso o Access 2007 no XP Professional SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2303
    Registrado : 22/11/2016

    [Resolvido] Contar dias entre datas Empty Re: [Resolvido] Contar dias entre datas

    Mensagem  DamascenoJr. em 23/9/2019, 01:04

    Basta adaptar com o nome correto dos campos
    Código:
    Abs(DateDiff("d";[CampoData1];[CampoData2))


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 619
    Registrado : 14/12/2010

    [Resolvido] Contar dias entre datas Empty Re: Contar dias entre datas

    Mensagem  julianovv em 23/9/2019, 16:19

    Olá, não existe um segundo campo de data. É uma coluna apenas (Data_hoje) e na consulta não pode haver duplicata.

    Exemplo:

    Dia/Mês/Ano........................Data_hoje   <= Data que o registro foi digitado

    15 de maio de 1975..........10/01/1997
    16 de maio de 1975..........10/01/1997
    17 de maio de 1975..........10/01/1997
    18 de maio de 1975..........10/01/1997
    19 de maio de 1975..........05/04/1998
    20 de maio de 1975..........05/04/1998
    21 de maio de 1975..........05/04/1998
    22 de maio de 1975..........05/04/1998

    Os dias 15, 16, 17 e 18 foram digitados no dia 10/01/1997...e assim por diante.
    O objetivo é contar os dias entre 10/01/1997 e 05/04/1998 ou os dias até a próxima digitação.
    Então o resultado seria 90 dias para digitar o dia 19 de maio.
    Espero ter sido claro.
    Obrigado.

    Wink


    .................................................................................
    Juliano

    Uso o Access 2007 no XP Professional SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2303
    Registrado : 22/11/2016

    [Resolvido] Contar dias entre datas Empty Re: [Resolvido] Contar dias entre datas

    Mensagem  DamascenoJr. em 25/9/2019, 23:51

    Entendido. É a mesma lógica aplicada no tópico do link abaixo. Veja. Basta adaptar o cálculo da diferença com o difdata
    https://www.maximoaccess.com/t36650-resolvidocriar-consulta-com-expressao


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 619
    Registrado : 14/12/2010

    [Resolvido] Contar dias entre datas Empty Re: Contar dias entre datas

    Mensagem  julianovv em 26/9/2019, 12:15

    Bom dia. Deu erro na coluna.

    Segue o banco com o erro.

    Obrigado.

    Wink
    Anexos
    [Resolvido] Contar dias entre datas AttachmentContaDias.zip
    Um exemplo do banco mostrando o erro.
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 11 vez(es)


    .................................................................................
    Juliano

    Uso o Access 2007 no XP Professional SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2303
    Registrado : 22/11/2016

    [Resolvido] Contar dias entre datas Empty Re: [Resolvido] Contar dias entre datas

    Mensagem  DamascenoJr. em 26/9/2019, 21:00

    Sem dúvida alguma com acesso ao arquivo e a lógica da estrutura é mais fácil ajudar.

    Queridos usuários, sempre anexem seus arquivos para serem melhor e mais rapidamente ajudados e assim darem logo sequência em seus projetos.
    Anexos
    [Resolvido] Contar dias entre datas AttachmentContaDias_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 12 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 619
    Registrado : 14/12/2010

    [Resolvido] Contar dias entre datas Empty Re: Contar dias entre datas

    Mensagem  julianovv em 27/9/2019, 20:16

    Obrigado! Deu certo agora.

    A única dúvida agora é como criar essa lista sem duplicação de registros, mostrando apenas os valores.

    ([Data_hoje]-(Nz(DÚltimo("Data_hoje";"Tbl Diário";"[Código] < " & [Código]);[Data_hoje])))

    Rolling Eyes





    .................................................................................
    Juliano

    Uso o Access 2007 no XP Professional SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile

      Data/hora atual: 23/10/2020, 09:25