AccessTr.neT
Round Fonksiyonu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Round Fonksiyonu (/konu-round-fonksiyonu.html)



Round Fonksiyonu - Abdullah - 09/12/2009

Arkadaşlar birçok sayı alanının bulunduğu bir çalışma yapıyorum fakat bazı dört işlem sonuçları hatalı oluyor sebebi sanırım yuvarlamadan kaynaklanıyor.Bir üstadın verdiği kodu kullanamadım bu kodun nasıl kullanılacağı konusunda veya diğer alternatif olabilecek bilgiler verirseniz sevinirim.

Kod : Function RoundA(Sayi, Optional Basamak As Long)
Kat& = 10 ^ Abs(Basamak)
If Basamak >= 0 Then RoundA = CDbl(FormatNumber(Left(Sayi, 30), Basamak))
If Basamak < 0 Then RoundA = CDbl(RoundA(FormatNumber(Left(Sayi, 30) / Kat), 0) * Kat)
End Function


Cvp: Round Fonksiyonu - ayhan2122 - 09/12/2009

Yapamadığınız işlemler hakkında bir örnek gönderin, yardımcı olunacaktır.


Cvp: Round Fonksiyonu - Abdullah - 13/12/2009

Sayın ayhan2122 sorunu çözdüm, ilginize teşekkürler.