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

    Calcular Diferença Entre Datas - Dias360

    avatar
    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 Empty 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
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

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

    Calcular Diferença Entre Datas - Dias360 Empty 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





    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Respeito às Regras 100%

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

    Calcular Diferença Entre Datas - Dias360 Empty Re: Calcular Diferença Entre Datas - Dias360

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

    Olá...

    Conseguiu resolver?

    Aguardo

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    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 Empty 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
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

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

    Calcular Diferença Entre Datas - Dias360 Empty 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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Respeito às Regras 100%

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

    Calcular Diferença Entre Datas - Dias360 Empty 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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

      Data/hora atual: 19/10/2020, 16:05