Merhaba..

Bu fonksiyonun özelliği sayı verisini yukarıya yuvarlamaya yarar.. Kısaca kullanım şekli şöyledir..:

[Resim: http://www.access-sql.com/resim/fround.jpg]

Bu fonksiyon hakkında birkaç ipucu vermekte de fayda var..

Fonksiyon içindeki sayının sonundaki noktalı virgülden sonraki rakam yuvarlanacak onladık basamağı gösterir.. Bu bölümü kullanmayadabiliriz..:

[Resim: http://www.access-sql.com/resim/fround2.jpg]

Ondalıklık değer başlangıcı 5 altı olursa sayıyı yukarda old

Hatalı sonuç üreten Round fonksiyonuna alternatif olarak geliştirdiğim RoundA fonksiyonunu paylaşmak istiyorum.

Nesne yerine değişken girdisi kullanılacaksa Variant ya da String olmalıdır.
Çünkü Double değişken tanımlandığında sayı anlamlı 16 digit haneye yuvarlandıktan fonksiyona girecektir.

Fonksiyon, Exceldeki YUVARLA fonksiyonu ile eşdeğer sonuçlar üretmektedir.

[code]Function RoundA(Sayi, Optional Basamak As Long)
Kat& = 10 ^ Abs(Basamak)
If Basamak >= 0 Then RoundA = CDb

Değerli arkadaşlar kolay gelsin. Round ile alakalı biraz farklı bir sorum olacak. Araştırdım ama bir sonuç bulamadım. Yuvarlamayı aşağıdaki gibi kullanıyoruz malum. Ancak ben fonksiyonun sonundaki 1,2,3 gibi basamık değerini değişkenden almık istiyorum. 1,2,3,4..... gibi değişkenleri aldım hiçbir sorun yok ancak değişken 0 olarak ayarlandığında mevcut sayım 1 basamaklı görünüyor. 0 olduğunda yuvarlama olmasın şeklinde nasıl ayarlayacağımı bilemedim?


[code=vba]Round(sayi,1)
Round(sayi,2)
R