Access SQL   ›   ACCESS KÜTÜPHANESİ   ›   ACCESS BİLGİ DEPOSU   ›   ACCESS YERLEŞİK FONKSİYONLAR   ›   Sayısal ve Matematiksel Fonksiyonlar   ›   Round Fonksiyonu

Round Fonksiyonu
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#1
18-07-2009, 15:09
Merhaba..

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

[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: fround2.jpg]

Ondalıklık değer başlangıcı 5 altı olursa sayıyı yukarda olduğu gibi alt değere yuvarlar.. 5 üstündeki ondalık değerlerde ise üste yuvarlar.. Örnek..:

[Resim: fround3.jpg]

Bu da ondalıklı yuvarlamaya başka bir örnek.. (Deyimdeki noktalı virgülden sonraki 2 ye dikkat Wink )

[Resim: fround4.jpg]

VBA kullanımı da çok farklı değil..

Visual Basic
  1. Dim sayi As Double
  2.  
  3. sayi= Round (123.67, 1)
  4.  
  5. 'Sonuç  123,7


Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
MADMAX
Access Takımı

*
Kayıt Tarihi: 04.01.2009
Toplam 199 konu açtı.
Toplam 778 yorum yaptı.
Toplam 12 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 4
#2
18-07-2009, 16:07
Hocam teşekkürler elinize sağlık.



  Bul
  Alıntı
Bu mesajı beğenenler:
assenucler
Kıdemli Üye >1000

*
Kayıt Tarihi: 21.03.2008
Toplam 154 konu açtı.
Toplam 2.119 yorum yaptı.
Toplam 11 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2019,
Beğeniler: 0 / 4
#3
18-07-2009, 18:10
Değerli Taruz;

Katkınız için teşekkürler...



  Bul
  Alıntı
Bu mesajı beğenenler:
Aykay
Önemli Üye 300-400

*
Kayıt Tarihi: 18.09.2008
Toplam 51 konu açtı.
Toplam 320 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#4
18-07-2009, 19:40
Teşekkürler sayın Taruz



  Bul
  Alıntı
Bu mesajı beğenenler:
Zeki Gürsoy
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 12.03.2008
Toplam 80 konu açtı.
Toplam 635 yorum yaptı.
Toplam 75 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 1 / 4
#5
19-07-2009, 23:30 (En son düzenleme: 19-07-2009, 23:31 Zeki Gürsoy.)
Merhaba,

VBA de "Round" fonksiyonu her zaman doğru sonuç döndürmeyebiliyor.
Bu basit hatadan dolayı sıkıntı yaşayan üyelerimizin sorularıyla zaman zaman karşılaşıyoruz.
Bu amaçla geliştirdiğim "RoundA" fonksiyonunu değerli dostum Taruz' un açtığı başlık altında paylaşmak istiyorum.

Konunun daha iyi anlaşılması için aşağıdaki yapıyı deneyerek aradaki farkı görebilirsiniz.
Visual Basic
  1. Sub test()
  2. Dim x As Double
  3.  
  4. x = 11.025
  5.  
  6. MsgBox "RoundA :" & RoundA(x, 2) & Chr(13) & _
  7.        "Round   :" & Round(x, 2)
  8. End Sub
  9.  
  10. Public Function RoundA(Sayi, Optional Basamak As Long)
  11. Kat& = 10 ^ Abs(Basamak)
  12. If Basamak >= 0 Then RoundA = CDbl(FormatNumber(Left(Sayi, 30), Basamak))
  13. If Basamak < 0 Then RoundA = CDbl(RoundA(FormatNumber(Left(Sayi, 30) / Kat), 0) * Kat)
  14. End Function





  Website   Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#6
20-07-2009, 01:47
Değerli dostum çok teşekkür ederim..

Sayende konu hem pekişti hem de değer kazandı..
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Fix Fonksiyonu adnanyurdakul 9 8.182 10-01-2021, 16:11
Son Mesaj: salerus
access-sql-18 Format Fonksiyonu (Sayı Değeri İçin) Taruz 12 19.423 14-10-2017, 00:52
Son Mesaj: dsezgin
  Int Fonksiyonu Taruz 5 5.668 19-07-2014, 01:20
Son Mesaj: Taruz
access-sql-20 Sgn Fonksiyonu Taruz 6 10.757 05-01-2011, 13:36
Son Mesaj: sezgin6556
  Abs Fonksiyonu Taruz 5 8.120 02-09-2009, 13:06
Son Mesaj: abkbek
  Rnd Fonksiyonu Taruz 3 5.468 18-07-2009, 19:36
Son Mesaj: Aykay

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi