Access te ROUND fonksiyonu hata!!!

[sezginunlu]

Arkadaşlar merhaba. Access t ROUND fonksiyonu ile başım dertte. Modül bilen arkadaşlar yardımcı olabilirse sevinirim. Örnek kodu aşağıya veriyorum.



Sub aa()
Dim deger1, deger2 As Single

deger1 = 11.025
deger2 = 11.875

MsgBox Round(deger1, 2)
MsgBox Round(deger2, 2)

End Sub


Şimdi gelelim sorunumuza. Round fonksiyonu ile belirli bir hesaplama sonucu çıkan ondalıklı sayıyı 2 ondalık basamağa yuvarlamak istiyorum. Kodu çalıştırdığınızda deger1--> 11.02 , deger2 --> 11.88 vermektedir. Normal şartlar altında deger1 --> 11.03 vermesi gerekiyor ama ROUND fonksiyonu bir şekilde bunu atlıyor. Sizce sebebi ne olabilir? Hesap sonucu çıkan ondalıklı sayının ondalık basamak sayısı burada olduğu gibi 3 basamak olmayabilir. Yani değişken olabilir.

 

[sezginunlu]

Bu soruyu çözebilen arkadaş yok galiba...

 

[veyselemre]

VBA nın round fonksiyonu dediğiniz gibi düzgün çalışmıyor.
Excel de de denedim dediğiniz gibi sonuç veriyor. Excel Worksheetfunction sınıfındaki round fonksiyonu düzgün çalışıyor. Aşağıdaki gibi bir deneyin.

Sub aa()
Dim deger1 As Double, deger2 As Double
Set ex = CreateObject("excel.application")
deger1 = 11.025
deger2 = 11.875

MsgBox ex.worksheetfunction.Round(deger1, 2)
MsgBox ex.worksheetfunction.Round(deger2, 2)
Set ex = Nothing
End Sub

 

[sezginunlu]

Yardımınız için teşekkür ederim. İşimi çözdüm ve çok makbule geçti.