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

    Calcular Diferença Entre Datas - Dias360

    Compartilhe

    alanrodrigo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 22/01/2010

    Calcular Diferença Entre Datas - Dias360

    Mensagem  alanrodrigo em 30/9/2016, 16:10

    Boa tarde!

    Preciso apurar o percentual de juros entre duas datas. Ocorre que, tenho que considerar que os juros são de 1,0% ao mês ou 0,033% ao dia, porém a contagem teria que respeitar que todos os meses possui 30 dias, desprezando assim, os dias 31 e nos meses de fevereiro também considerar o mês como sendo de 30 dias.

    A função teria que ser semelhante ao Dias360 do Excel. Porém não estou encontrando uma saída para funcionar no Access, pois apenas consigo fazer a função DifDatas, que até retorna a diferença, mas não considera os meses como tendo 30 dias.

    Assim, por favor, alguém teria uma sugestão de como calcular a diferença entre datas, sendo que todos os meses deverão ter 30 dias?

    Pela atenção desde já agradeço.

    Att.

    Alan
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: Calcular Diferença Entre Datas - Dias360

    Mensagem  Celso Roberto em 1/10/2016, 16:23

    Olá...

    Vou te apresentar 2 opções:
    Vou consider a data da emissão como data de origem, se for outra troque

    1- Se for calcular em uma consulta, então acrescente 2 campos
    No primeiro define o ultimo dia do mes
    Cole: UltimoDiaMes: DataSerial(Ano([DataDaEmissao]);Mês([DataDaEmissao])+1;0)

    No segundo define que qualquer data assuma o dia 30 do mes
    Cole: DataAtual: SeImed(Dia([UltimoDiaMes])<>30;30 & "/" & Mês([DataDaEmissao]) & "/" & Ano([DatadaEmissao]);([UltimoDiaMes]))

    2- Se for calcular em formulário, também acrescente 2 campos não acoplado
    No primeiro defina o nome como dtDataAtual e formato Data abreviada
    No Segundo defina o nome como dtUltimoDiaMes e na fonte de controle
    Cole: =DataSerial(Ano([dtDataDaEmissao]);Mês([dtDataDaEmissao])+1;0)

    No evento ao alterar de seu campo data da emissão cole:

    Private Sub dtDataDaEmissao_AfterUpdate()
    If (Day(dtUltimoDiaMes) <> 30) Then
    Me.dtDataAtual = 30 & "/" & Month(dtDataDaEmissao) & "/" & Year(dtDataDaEmissao)
    Else
    Me.dtDataAtual = Me.dtUltimoDiaMes
    End If

    End Sub

    Nos dois casos independente se mes tem 28,29,31 dias no campo data atual será sempre dia 30, então use este campo para efetuar o calculo da diferença de datas

    Espero que ajude

    abraços





    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: Calcular Diferença Entre Datas - Dias360

    Mensagem  Celso Roberto em 7/10/2016, 15:05

    Olá...

    Conseguiu resolver?

    Aguardo

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    alanrodrigo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 22/01/2010

    Re: Calcular Diferença Entre Datas - Dias360

    Mensagem  alanrodrigo em 10/10/2016, 12:30

    Celso, obrigado pelo envio.

    Estou atuando em um projeto paralelo atualmente, mas vou verificar pois o outro ficou parado justamente neste ponto.

    Retorno em breve, agradeço pela ajuda.

    Att.

    Alan
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: Calcular Diferença Entre Datas - Dias360

    Mensagem  Celso Roberto em 3/1/2017, 21:28

    Olá...
    Feliz 2017

    Como anda este tópico?

    Aguardo
    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: Calcular Diferença Entre Datas - Dias360

    Mensagem  Celso Roberto em 9/3/2018, 16:16

    Olá..

    Conseguiu resolver esta sua solicitação de ajuda?

    Os membros do Fórum merece o seu retorno

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 14/11/2018, 11:51