VBA da Kalansız Bölme Sorunu

[kerim9967]

Slm. Herkese hayırlı günler.
Benim şöyle bir sorunum var. Resimde de görüldüğü üzere kalansız bölme yaparken bazı sonuçlar yanlış çıkıyor. Mesela 57 \ 9,5(*) yazdığımda sonuç 6 çıkması gerekirken 5 çıkıyor. Ama herzaman hata vermiyor. Mesela 57 \ 14,25 işleminin sonucunu doğru veriyor. Farklı değişken tiplerinde (Integer, Currency...) denemem sorunu çözmedi. Acaba nerede hata yapıyorum.

(*) Örnek sayıları görünmesi için verdim. Normalde textbox dan alıyorum sayıları.

 

[Ayhan Ercan]

Merhaba

bölme işaretini "/" olarak denermisiniz.. Aşağıdaki gibi

x1= 57 / 9.5

 

[kerim9967]

Ayhan bey cevabınız için teşekkür ederim. O yöntemi biliyorum fakat kalansız bölme işlemi yapmak istediğim için bu yolu deniyordum. Ama olmayacak galiba. Öyleyse virgülden sonraki rakamların gözükmesini nasıl engelleyebilirim?

 

[kerim9967]

Çözümü hatırladım. Konuya bakan arkadaşlarda yararlansın diye yazıyorum.

Normal Yuvarlamak için
x1 = Round(57 / en, 0)

Aşağı yuvarlamak içinde
x1 = Int(59 / en)

 

[Zeki Gürsoy]

Virgülden sonrasını yok saysın isterseniz,

x1 = Fix(57 / 9.5)