CALCULO DE MORA DIARIA
BOA NOITE A TODOS, ALGUEM PODE ME AJUDAR?
ESTOU USANDO VISUAL STUDIO 2008, QUERO CALCULAR MORA DIARIA DIVERSAS
ALGUEM ME DA UMA LUZ, PRAMIM CALCULAR NO VISUAL STUDIO ?
O INDICE DA MORA DIARIA E DE: 0.033% DO VALOR DO DOCUMENTO AI MULTIPLICO PELO NUMERO DE DIAS EM ATRAZO
NA PROGRMAÇÃO ESTOU PERDIDO, ALGUEM ME AJUDA?
ESTOU USANDO VISUAL STUDIO 2008, QUERO CALCULAR MORA DIARIA DIVERSAS
ALGUEM ME DA UMA LUZ, PRAMIM CALCULAR NO VISUAL STUDIO ?
O INDICE DA MORA DIARIA E DE: 0.033% DO VALOR DO DOCUMENTO AI MULTIPLICO PELO NUMERO DE DIAS EM ATRAZO
NA PROGRMAÇÃO ESTOU PERDIDO, ALGUEM ME AJUDA?
Dim Resultado as Single
Dim IndiceMora as Single
Dim Dias as Integer
Dias = DateDiff([Ô]d[Ô], DiaVencimento.text, DiaPagamento.text))
Resultado.text = IndiceMora * Dias / 100
Ainda depende de muita coisa, se os dados vem de um banco de dados, se são informados em caixas de texto, de um listbox, etc.
Dim IndiceMora as Single
Dim Dias as Integer
Dias = DateDiff([Ô]d[Ô], DiaVencimento.text, DiaPagamento.text))
Resultado.text = IndiceMora * Dias / 100
Ainda depende de muita coisa, se os dados vem de um banco de dados, se são informados em caixas de texto, de um listbox, etc.
Cara, olha só:
0,033% é igual a 0,033 /100 que é igual a 0,00033.
é isso mesmo?
Ou você quis dizer:
3,3% que é igual a 3,3 /100 que é igual a 0,033.
Lembrando o cálculo para juros:
[txt-color=#0000f0]Valor * (1 + porcentagem) ^ n[/txt-color]
Onde [txt-color=#0000f0]valor[/txt-color] = Valor do documento e;
[txt-color=#0000f0]porcentagem[/txt-color] = valor da porcentagem;
[txt-color=#0000f0]n[/txt-color] = número de dias de atraso
Fazendo um exemplo de um documento de R$ 400,00 com cinco dias de atraso:
No primeiro caso (0,033% ou 0,00033), teremos:
0,033 / 100 = 0,00033
400 * (1 + 0,00033) ^ 5 = R$ 400,66
No segundo caso (3,3% ou 0,033), teremos:
3,3% /100 = 0,033
400 * (1 + 0,033) ^ 5 = R$ 470,50
O código fica assim ([txt-color=#0000f0]Trabalhando com 3,3%[/txt-color]):
Lembre-se de indicar a mora corretamente, senão o cálculo sai errado
0,033% é igual a 0,033 /100 que é igual a 0,00033.
é isso mesmo?
Ou você quis dizer:
3,3% que é igual a 3,3 /100 que é igual a 0,033.
Lembrando o cálculo para juros:
[txt-color=#0000f0]Valor * (1 + porcentagem) ^ n[/txt-color]
Onde [txt-color=#0000f0]valor[/txt-color] = Valor do documento e;
[txt-color=#0000f0]porcentagem[/txt-color] = valor da porcentagem;
[txt-color=#0000f0]n[/txt-color] = número de dias de atraso
Fazendo um exemplo de um documento de R$ 400,00 com cinco dias de atraso:
No primeiro caso (0,033% ou 0,00033), teremos:
0,033 / 100 = 0,00033
400 * (1 + 0,00033) ^ 5 = R$ 400,66
No segundo caso (3,3% ou 0,033), teremos:
3,3% /100 = 0,033
400 * (1 + 0,033) ^ 5 = R$ 470,50
O código fica assim ([txt-color=#0000f0]Trabalhando com 3,3%[/txt-color]):
Dim diasAtraso As UInteger = 5 [txt-color=#007100][ô]Teste com 5 dias de atraso[/txt-color]
Dim porcentagem As Decimal = (3.3 / 100) [txt-color=#007100][ô]Calculando a porcentagem[/txt-color]
Dim valor As Decimal = 400[txt-color=#007100] [ô]Valor total do documento[/txt-color]
Dim total As Decimal = valor * (1 + mora) ^ diasAtraso[txt-color=#007100] [ô]Cálculo de juros[/txt-color]
MsgBox(Format(total, [txt-color=#e80000][Ô]c[Ô][/txt-color]))Lembre-se de indicar a mora corretamente, senão o cálculo sai errado
Tópico encerrado , respostas não são mais permitidas