[Resolvido]calculo com porcentagem dias de multa

Boa Tarde,
Tudo bem pessoal, procurei mas não achei nada parecido com o que preciso, pois é para uso de um sub-formulário.
Estou precisando de um calculo com porcentagem, aplicação de multa, referente a entrega em atraso.
[Preço]*[Dias de Atraso] se < 30 dias  é de 0,2% ao dia se < 30 dias o que excede é 0,4%
Pode me ajudar?

Pesquise sobre select case usado em VBA é muito façil



select case seu campo

case dias <=30
seu calculo

case >30
seu calculo mais juros de mora

end select


estou meio enferrujado é +/- isto caso nao consiga coloque seu arquivo para download.


Ate mais

Boa tarde
Estou encaminhando o documento conforme solicitado, o calculo é no Fml_Detalhe Entrada que uso no sub formulário do Fml_Empenho
na parte multa por atraso o qual tenho de aplicar até 30 dias de atraso 0,2% o que exceder de 30 dias 0,4% dia.

Boa noite
esta semana foi muito corrido (estava de ferias)

Amanha (segunda 10/04/17) coloco uma solução não abandone o post.



Ate mais

Por favor para melhor compreensão

faça esta conta e mostre o resultado esperado
com um preço de 100 reais e dias de atraso 20 dias e multa de 0,2

e tambem preço de 100 reais e dias de atraso 40 dias e multa de 0,4

se o atraso for de 40 dias sera cobrado a multa de 0,2 em cima de 30 e 0,4 em cima dos outros 10 correto?

no campo txtMulta voce quer que apareça o valor total com a multa ou só o valor da multa.?

Boa Noite;
Preciso do valor da multa; até 30 dias valor de 0,2 %, se passar a multa, se passar de dia em diante esses dias serão de 0,4%, só o que exceder como. de 30 dias. No caso tenho que acrescentar tres campos é isto? para cada tipo de multa e o total da multa?

 
Exemplo: R$100,00 de 44 dias de atraso sendo 30 a 0,2 % e 14 dias de multa por 0,4%; que de valor da multa separado e total da multa, pois se a entrega for fracionada dará dias diferenciado. Com certeza voce me entendeu;
Obrigado pela atenção
Fico no aguardo




;

Boa Tarde

Criei um campo na tabela Tbl_DetalheEntrada "MultaAtraso"
para receber os valores da multa.

Pensando a longo prazo, como fica se a taxa de juros mudar.
Voce teria que mexer no código novamente.
Na minha opinião o mais fácil a se fazer é criar uma tabela para configuração dos juros
e caso de alguma alteração basta mudar o valor na tabela.

coloquei a função no evento após atualizar do campo "DatasRecebimento"

Ate mais

Uso da função select case

'Scandinavo 11/04/16
Dim DiasAtraso As Integer ' criada a variável
DiasAtraso = [Dias de Atraso] 'Passa o valor para a varivel

Select Case DiasAtraso
Case 1 To 30 ' Prazo entre 1 a 30 dias

'Executa o calculo com esta taxa de juros 0,2 % ao dia

'mostra no campo juros mais o preço
'Me.txtMultas = (Me.Preço * (0.2 * DiasAtraso) / 100) + Me.Preço
'somente juros
Me.txtMultas = (Me.Preço * (0.2 * DiasAtraso) / 100)

Case Is > 30 ' Prazo maior que 30 dias
'Faz o calculo em separado dos 30 dias e dos dias acima de 30 dias

'mostra no campo juros mais o preço
'Me.txtMultas = (Me.Preço * (0.2 * 30) / 100) + (Me.Preço * (0.4 * (DiasAtraso - 30)) / 100) + Me.Preço
'somente juros
Me.txtMultas = (Me.Preço * (0.2 * 30) / 100) + (Me.Preço * (0.4 * (DiasAtraso - 30)) / 100)
Case Else


End Select


Modifiquei o arquivo exemplo; adicionei um arquivo que busca o juros em uma tabela.

Bom dia Colega
Não consegui, que desse o resultado que preciso, sei que eu estou fazendo alguma coisa errada.
Preciso de sua orientação
No aguardo
Obrigado

Ok
Monte algumas contas, e mostre o resultado esperado.

Vai ficar mais fácil para mim montar o código. Ex.


1000 reais a 0,2 % de juros ao dia com 25 dias de atraso qual vai ser o resultado
500 reais a 0,2 % de juros ao dia com 30 dias de atraso mais 10 dias de juros a 0,4 % qual o resultado. ou seja um atraso de 40 dias.


Ate mais

Fml_Detalhe Entrada, uso como sub-formulário do Fml_Empenho, onde fica todas as informações ligada a esta.

1. Nota Fiscal Nº    Recebimeto           Preço               Prazo           Atraso     Dias<30      Multa 0,2%          Dias>30     Multa 0,4%     Total Multa
     749                     16-jan-17           R$ 9.337,00          07-jan-17           9            9            R$ 168,07            0               0                    R$ 168,07
     842                     17-mar-17         R$ 2.099,00          07-jan-17          69           30           R$ 125,94           39            R$ 251,88           R$ 377,82
     843                    17-mar-17          R$ 17.277,00        07-jan-17          69           30          R$ 1.036,62          39            R$ 2.073,24        R$ 3.109,86
     800                    10-mar-17          R$ 1.329,00          07-jan-17          62           30           R$ 79,74             32            R$ 159,48           R$ 239,22
   
   

                                                                                                                                                                     Total da Multa      R$ 3.894,97
Multa 0,2%: [Preço]*(0,2)*[Dias<30]/(100)
Multa 0,4%: [Preço]*(0,4)*[Dias>30]/(100)
Total Multa: [Multa 0,2%]+[Multa 0,4%]
=Soma([Total Multa])


Na realidade é isto que preciso, só os valores da multas, conforme exemplos acima.

Adicionei uns campos a sua tabela
So consegui pelo VBA
O codigo esta no evento apos atualizar da data recebimento, coloque no lugar que voce achar nescessario.
Lembre o codigo usa uma tabela para pegar os juros aplicados.

Acho que era isto.


Ate mais

Boa noite
Desculpas a demora, referente ao retorno.
Valeu obrigado pela ajuda