MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 605
    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 : 689
    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 : 605
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 : 605
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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
    http://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 : 605
    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 4 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 5 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 : 605
    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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/11/2019, 07:20