Textboxtaki Para Birimini Yuvarlama

[Mavirenk]

Merhabalar

Arkadaşlar butona basıldıktan sonra hesaplama yapıp textbox'a sonuç geliyor. Ancak gelen sonuç 34,05 olması gerekirken 34,00 olarak geliyor. Nasıl düzeltilebilir. Kodları verirseniz çok memnun olurum. Hayırlı akşamlar.

Dosya Linki
http://www.yukletr.com/download.php?file=7d30fdfc3767528e0e9c13cd770d7144

 

[PLİNT]

Merhabalar

Arkadaşlar butona basıldıktan sonra hesaplama yapıp textbox'a sonuç geliyor. Ancak gelen sonuç 34,05 olması gerekirken 34,00 olarak geliyor. Nasıl düzeltilebilir. Kodları verirseniz çok memnun olurum. Hayırlı akşamlar.

Merhaba

Buton daki kodlardan şu bölümü aşağıdaki gibi değiştirip deneyin.

TextBox2 = Format(Round(Replace(TextBox2.Value, ".", ","), [COLOR="Red"]2[/COLOR]), "#,#.00")

2,268*15=34,02 şeklinde sonuç verecektir. Doğru olanı bu.


Sonucun sizin istediğiniz gibi olması için ise;

sonuc = ([COLOR="Red"]Round[/COLOR]((CCur(böl) / CSng(yemek)) * CByte(yüzde) / CInt(gün), [COLOR="Red"]2[/COLOR]) * CInt(veri))
TextBox2.Value = sonuc
TextBox2 = Format(Round(Replace(TextBox2.Value, ".", ","), [COLOR="Red"]2[/COLOR]), "#,#.00")

böyle olabilir.

 

[Mavirenk]

Textbox Para Birimi Yuvarlama

Sayın PLİNT hocam aklınıza sağlık yazmış olduğunuz kodlar istediğim gibi çalıştı çok teşekkür ederim. Sağolun...:mutlu::mutlu: