ondalık problemi

[metinozlu]

merhaba
aşağıdaki kodda yapılan işlem sonunda sonuç 152,1245 çıkıyor. ben 152,12 görünmesini istiyorum.

yardımlarınızı bekliyorum.

UserForm1.TextBox160.Value = Round(Round(a.Value, 2) + Round(b.Value, 2) + Round(c.Value, 2) + Round(d.Value, 2), 2) - Round(Round(Round(a.Value, 2) + Round(b.Value, 2) + Round(c.Value, 2) + Round(d.Value, 2), 2) * 6 / 1000

 

[Merhum İdris SERDAR]

UserForm1.TextBox160 = Format(CCur(TextBox160.Value), "#,##0.00")

Kodunu da ekleyip denerseniz olur herhalde.

 

[danersin]

neden tüm işlemleri yapıp sonra hepsini round içine almıyorsunuz..
şöyle birşey olacak (parantez içindeki işlemleri kontrol edin )
round((a.value+b.value+c.value+d.value-round(a.value,2)+b.value+c.value)*6/100,2)

hatta iki defa +c.value+c.value kullanmak yerine 2*c.value kullanın.

 

[metinozlu]

çözemedim program dosyası ekte incelerseniz sevinirim