Skip to main content

AccessTr.neT


Round Fonksiyonu

Round Fonksiyonu

Çözüldü #1
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
Cevapla
Çözüldü #2
Yapamadığınız işlemler hakkında bir örnek gönderin, yardımcı olunacaktır.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #3
Sayın ayhan2122 sorunu çözdüm, ilginize teşekkürler.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task