Hola saludos,
Tengo el siguiente codigo y solo me falta que los resultados cuando sean decimales tengas dos dgitos luego del punto:
dim loanamount as currency = CDbl(TextField1.text)
dim cantidadresta as double = 15000000
dim decimal as double = .00125
dim entero as integer = 27825
dim primertotal as string = str(loanamount - cantidadresta)
dim segundototal as string = str(Val(primertotal) * decimal)
dim primera as string = str(Val(segundototal) + entero)
dim cantidadresta2 as double = 10000000
dim decimal2 as double = .0015
dim entero2 as integer = 20325
dim primertotal2 as string = str(loanamount - cantidadresta2)
dim segundototal2 as string = str(Val(primertotal2) * decimal2)
dim segunda as string = str(Val(segundototal2) + entero2)
dim cantidadresta3 as double = 500000
dim decimal3 as double = .002
dim entero3 as integer = 1325
dim primertotal3 as string = str(loanamount - cantidadresta3)
dim segundototal3 as string = str(Val(primertotal3) * decimal3)
dim tercera as string = str(Val(segundototal3) + entero3)
dim cantidadresta4 as double = 100000
dim decimal4 as double = .0025
dim entero4 as integer = 325
dim primertotal4 as string = str(loanamount - cantidadresta4)
dim segundototal4 as string = str(Val(primertotal4) * decimal4)
dim cuarta as string = str(Val(segundototal4) + entero4)
dim cantidadresta5 as double = 50000
dim decimal5 as double = .003
dim entero5 as integer = 175
dim primertotal5 as string = str(loanamount - cantidadresta5)
dim segundototal5 as string = str(Val(primertotal5) * decimal5)
dim quinta as string = str(Val(segundototal5) + entero5)
dim decimal6 as double = .0035
dim segundototal6 as string = str(loanamount * decimal6)
dim ultimovalor as string = “125”
if loanamount >= 15000000 then
Label8.text = primera
Elseif loanamount >= 10000000 then
Label8.text = segunda
Elseif loanamount >= 500000 then
Label8.text = tercera
Elseif loanamount >= 100000 then
Label8.text = cuarta
Elseif loanamount >= 50000 then
Label8.text = quinta
Elseif loanamount > 35714.29 then
Label8.Text = segundototal6
Elseif loanamount <= 35714.29 then
Label8.text = ultimovalor
end if
Espero me puedan ayudar