my Code is not working as expected

[sateesh kumar]

my code is here
my values is CandTotExpPM,CandNegotiPer,,CandNegotiFig,RateToClientPM,IntrCollPeriod,ClientNegotiationPer,ClientNegotiationFig with respect 55000.00,20,6000,85000,2515.07,20,6000
, instead of 5515.07 but am getting Wrong out put as 59515.06

[/B][/B]Dim val1, val2 As Long
val1 = ((val(CandTotExpPM) * val(CandNegotiPer)) / 100) - val(CandNegotiFig)
val2 = ((val(RateToClientPM) * val(ClientNegotiationPer)) / 100) + val(ClientNegotiationFig)




SalePrice = val(RateToClientPM) + val(IntrCollPeriod) - val(val1) - val(val2)
SalePrice = Format(val(SalePrice), "#0.0000")


[B][B]

Where i did the mistake?
thanks for advance

 

[sateesh kumar]

sorry, Duplicate Thread.