DUVIDA PARCELAMENTO

CCRISANEVB 10/02/2012 16:12:49
#394451
Oi.Pessoal preciso de uma ajuda de como poderia fazer uma função para pegar um valor x igual R$ 100,00

se o valor da venda for por exemplo 101 só posso parcelar uma única vez. se for 200 parcelar em 2 vez
se for 300 até 3 vezes...etc

obrigada pela a ajuda
TECLA 10/02/2012 16:37:13
#394453
Se o valor for, por exemplo, 199, qual seria a parcela?
CCRISANEVB 10/02/2012 16:50:24
#394454
Se fosse 199 seria em uma (1) Parcela
MORDENTI 10/02/2012 17:07:16
#394455
Boa tarde,


Voce pode colocar uma divisão e verificar por exemplo:

[ô] Por exemplo valor da parcela minima 100 [ô]

totalparcelas = total/100
totalparcelas = int(totalparcelas) [ô] pois nao existe parcela 0,1 ou 1,1




[ô] dentro disto só tratar no if

ex: total venda 99,00 /100 = 0,00001 = entao a vista 0 parcela

ex 1000,00 / 100 = 10 = int prtoprio 10 parcelas


Espero poder ter ajudado.
MARCELO.TREZE 10/02/2012 17:15:26
#394456 Resposta escolhida
eu acho que ele deseja colocar as parcelas com um valor minimo, ou seja no exemplo a cada 100 reais.

bom uma forma simples seria esta

coloque um textbox e um commandbutton em um form e cole

Dim Valor As Double
Dim QuantParcelas As Integer
Dim ValorParcelas As Double

Private Sub Command1_Click()
Valor = Text1.Text
If Valor > 100 Then
QuantParcelas = (Valor - (Valor Mod 100)) / 100
ValorParcelas = Valor / QuantParcelas
Else
QuantParcelas = 1
ValorParcelas = Valor
End If
MsgBox QuantParcelas & [Ô] parcelas de [Ô] & Format(ValorParcelas,[Ô]Currency[Ô])
End Sub
FEDERHEN 13/02/2012 08:28:57
#394549
SIMPLES...


Dim QuantidadeParcelas As Long
Dim ValorDaVenda As Double
Dim ValorMinimoDaParcela As Double

ValorDaVenda = 199.99
ValorMinimoDaParcela = 100.00
QuantidadeParcelas = Int(ValorDaVenda / ValorMinimoDaParcela)

Msgbox QuantidadeParcelas & [Ô] parcela(s) de R$ [Ô] & (ValorDaVenda / QuantidadeParcelas)

Tópico encerrado , respostas não são mais permitidas
Voltar