Microsoft Support

Makale numaras�: 196652 - Son G�zden Ge�irme: 15 Temmuz 2004 Per�embe - G�zden ge�irme: 3.2

Implement �zel yordamlar yuvarlama nas�l

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Otomatik Terc�me

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Bu Sayfada

Hepsini a� | Hepsini kapa

�zet

Microsoft �r�nlerinde bir dizi farkl� yuvarlama algoritmalar�na vard�r. Algoritmalar aras�ndad�r aritmetik yuvarlama Excel'in �al��ma sayfas� Round() fonksiyonunda Banker'�n yuvarlama CInt() CLng() ve Round() i�levlerinde Visual Basic for Applications yuvarlama. Bu makalede, hangi �e�itli Visual Basic for Applications yuvarlama i�levlerini yapmak ve i�levleri kullanma �rnekleri sa�lan�r a��klan�r. Buna ek olarak, makaleyi �e�itli yuvarlama algoritmalar� ger�ekle�tiren �rnek i�levleri i�erir.

Daha fazla bilgi

Yuvarlama a��klan�yor.

Daha fazla duyarl�k �ok say�da k��k duyarl�k say�ya d�n��t�rmek istedi�iniz yuvarlamak gerekir. Kayan noktal� say� bir tamsay� d�n��t�rmek gerekti�inde en s�k kullan�lan durumdur.

A�a�� yuvarlama

Yuvarlama basit kesme formdur. Herhangi basamak istedi�iniz duyarl�k yaln�zca g�z ard� edilir. VBA Fix() i�levi, kesme �rne�idir. �rne�in, Fix(3.5) 3, ve Fix(-3.5) -3.

Int() i�levi tamsay�ya en y�ksek de�erden daha az yuvarlar. �nt() hem Fix() - kesiliyor - pozitif bir say� ile ayn� �ekilde davran�r, ancak farkl� sonu�lar i�in negatif bir say� verin: -4 Int(-3.5) sa�lar.

Bir �rnek ayn? ?ekilde pozitif ve negatif say� (mutlak de�er) boyutlar� etkiledi�inden simetrik yuvarlama Fix() i�levdir. Boyutlar� pozitif ve negatif say�lar�n farkl� etkiler, ��nk� asimetrik yuvarlama �rnek �nt() i�levdir.

Excel, benzer bir elektronik tablo i�levleri i�erir: �nt() Floor() ve RoundDown(). Int() Visual Basic for Applications �nt() ayn� �ekilde �al��r. Floor() pozitif de�erler keser, ancak negatif bir say� ile �al��m�yor. RoundDown() i�levi VBA Fix() i�levi ile ayn� bi�imde �al��r.

Microsoft SQL Server, VBA Fix() i�lev gibi davranan bir Round() i�levi vard�r. SQL Server, VBA �nt() i�levi ile ayn� bi�imde �al��r bir Floor() i�levi de vard�r.

Yukar� yuvarlama

SQL Server ve Excel, her zaman i�in sonraki de�er (daha fazla pozitif) kesir de�erleri yuvarlar ceiling() adl� bir fonksiyon var.

Visual Basic for Applications, kar��l�k gelen bir Yuvarlak Yukar� i�levi yok. Ancak, negatif say�lar i�in Fix() hem �nt() yukar� do�ru farkl� �ekillerde yuvarlamak i�in kullan�labilir.

0'�n do�ru Fix() yuvarlar (mutlak anlamda, mutlak boyutlar� a��s�ndan ancak a�a�� yukar�). Fix(-3.5)-3.5 ' dir.

�nt() 0 uza�a yuvarlar (mutlak boyutlar� a��s�ndan, mutlak bir anlamda ancak a�a�� yukar�). Int(-3.5) -4 olur.

Aritmetik yuvarlama

Her zaman a�a�� veya yukar� yuvarlarken, elde edilen say� en mutlaka yak�n �zg�n numaras� de�il. 1'I�in bas�l� 1.9 yuvarlak, �rne�in, bu kadar 2 yuvarlak, daha �ok daha b�y�k farkt�r. 2.4 1.6 Numaralar�n� 2'ye yuvarlanmas�n� g�rmek daha kolayd�r.

Ancak, ne, yakla��k 1 ve 2'aras�nda equidistant olan 1.5? Kural� taraf�ndan yar�m �ift y�nl� say� yukar� yuvarlan�r.

-.5 -1 Veya burada-.5 0 olarak yukar� yuvarlan�r, simetrik olmayan bir bi�imde yuvarlan?r, simetrik bir bi�imde yar� �ift y�nl� say�lar� yuvarlamay� uygulayabilirsiniz.

A�a��daki i�levler, simetrik aritmetik yuvarlama sa�lar:

Excel'in Round() elektronik tablo i�levi.
SQL Server Round() i�levi, simetrik aritmetik yuvarlama yapabilirsiniz.

Asimetrik aritmetik yuvarlama a�a��daki i�levi girin:

Java Math kitapl�� Round() y�ntemi.

Visual Basic for Applications aritmetik yuvarlama yapar herhangi bir i�lev yoktur.

Banka'n�n yuvarlama

Yuvarlanan bir de�er ekledi�inizde birlikte, her zaman ayn�.5 yuvarlama daha fazla say�larla, b�y�yor bir sapma y�n� sonu�lar� birbirine ekleyin. Fark� bi�imlendirmek en aza indirmek i�in bir banka'n�n yuvarlama ile yoludur.

Banka'n�n yuvarlama yuvarlar.5 bazen ayarlay�n ve bazen a�a��. 2, 3.5 Ve her ikisi de 4'e yuvarlamas�n� 4.5, 1.5 hem de 2.5 yuvarlamak i�in en yak�n �ift say�ya yuvarlamak i�in kural�d�r. Banka'n�n yuvarlama simetrik olur.

Banka'n�n yuvarlama, Visual Basic for Applications'de, a�a��daki say�sal i�levleri ger�ekle�tirir: CByte(), CInt() CLng() CCur() ve Round().

Banka'n�n yuvarlama yapmak yok bir Excel elektronik tablo i�levleri vard�r.

Rasgele yuvarlama

Hatta Banka'n�n yuvarlama toplamlar� bias. Sapma.5 ger�ekten rasgele bi�imde a�a�� veya Yukar� yuvarlama olarak kald�rmak i�in ek bir ad�m alabilir. Verileri kasten biased olsa bile, b�ylece, sapma simge durumunda. Ancak, rasgele rasgele Da��t�lm�� veri yuvarlama kullanarak banka'n�n yuvarlama de�erinden daha b�y�k bir sapma neden olabilir. Rasgele yuvarlama ayn� veriler iki farkl� toplamlar� neden olabilir.

Hi�bir Microsoft �r�nleri, rasgele yuvarlama yordam�n herhangi bir s�ralama kullan�r.

Yuvarlama alternatif

Di�er yuvarlama yukar�.5 ile 0,5 a�a�� aras�nda birbirini izleyen �a�r�larda yuvarlama.

Hi�bir Microsoft �r�nleri, di�er bir yuvarlama yordam� uygulay�n.

Tutars�z uygulanmayan Round() i�lev olur.

Round() i�levi ge�mi� nedeniyle farkl� Microsoft �r�nleri aras�nda tutarl� bi�imde uygulanmad�.

A�a��daki tabloda, uygulama i�in �r�n ile ilgilidir:

   Product                             Implementation
   ----------------------------------------------------------------------
   Visual Basic for Applications 6.0   Banker's Rounding
   Excel Worksheet                     Symmetric Arithmetic Rounding
   SQL Server                          Either Symmetric Arithmetic Rounding
                                       or Symmetric Round Down (Fix)
                                       depending on arguments

   Java Math library                   Asymmetric Arithmetic Rounding

Visual Basic 6.0 ve Visual Basic for Applications 6.0 Round() i�levinde, Banka'n�n yuvarlama yapar. Bu, kendisine yuvarlamak i�in ondal�k basamak say�s�n� belirleyen bir iste�e ba�l� ikinci ba��ms�z de�i�keni vard�r:

   Debug.Print Round(2.45, 1) returns 2.4.

�rnek veri

A�a��daki tabloda, say�lar ve toplamlar� olu�turulan baz� �rnek veriler ve �e�itli yuvarlama y�ntemleri etkisini g�sterir.

   Number/Int./Fix/Ceiling/Asym. Arith./Sym. Arith./Banker's/Random/Alt.
   ---------------------------------------------------------------------
   -2.6   -3   -2  -2      -3          -3           -3       -3     -3
   -2.5   -3   -2  -2      -2          -3           -2       -2     -3
   -2.4   -3   -2  -2      -2          -2           -2       -2     -2
   -1.6   -2   -1  -1      -2          -2           -2       -2     -2
   -1.5   -2   -1  -1      -1          -2           -2       -1     -1
   -1.4   -2   -1  -1      -1          -1           -1       -1     -1
   -0.6   -1    0   0      -1          -1           -1       -1     -1
   -0.5   -1    0   0       0          -1            0       -1     -1
   -0.4   -1    0   0       0           0            0        0      0
    0.4    0    0   1       0           0            0        0      0
    0.5    0    0   1       1           1            0        1      1
    0.6    0    0   1       1           1            1        1      1
    1.4    1    1   2       1           1            1        1      1
    1.5    1    1   2       2           2            2        1      1
    1.6    1    1   2       2           2            2        2      2
    2.4    2    2   3       2           2            2        2      2
    2.5    2    2   3       3           3            2        3      3
    2.6    2    2   3       3           3            3        3      3

T�m say�lar�n toplam�:

   Number/Int./Fix/Ceiling/Asym. Arith./Sym. Arith./Banker's/Random/Alt.
   ---------------------------------------------------------------------
   0.0    -9   0   9       3            0           0        1      0

T�m negatif say�lar�n toplam�:

   Number/Int./Fix/Ceiling/Asym. Arith./Sym. Arith./Banker's/Random/Alt.
   ---------------------------------------------------------------------
   -13.5  -18  -9  -9      -12          -15         -13      -13    -14

Pozitif say�n�n toplam�:

   Number/Int./Fix/Ceiling/Asym. Arith./Sym. Arith./Banker's/Random/Alt.
   ---------------------------------------------------------------------
   13.5   9    9   18      15           15          13       14     14

Tabloda, �e�itli yuvarlama y�ntemleri aras�ndaki fark g�sterilir. Rasgele da��t�lm�� pozitif ve negatif say�lar, Fix(), simetrik aritmetik yuvarlama, Banka'n�n yuvarlama ve yuvarlama de�i�en rasgele de�il, ne kadar gerisinde yuvarlama ile ger�ek Toplamlar'den az fark sa�lar.

Say�lar, ancak ya da t�m pozitif veya negatif t�m banka'n�n yuvarlama, yuvarlama de�i�en ve rasgele yuvarlama fiili toplam gelen en az bir fark sa�lar.

�rnek kullan�c� tan�ml� i�levler yuvarlama

�rnek kod a�a��daki i�lev kod b�l�m�nde a��klanan yuvarlama t�rleri i�in �rnek uygulamalar� sa�lar.

Sa�lanan i�levler �unlard�r:

   AsymDown      Asymmetrically rounds numbers down - similar to Int().
                 Negative numbers get more negative.

   SymDown       Symmetrically rounds numbers down - similar to Fix().
                 Truncates all numbers toward 0.
                 Same as AsymDown for positive numbers.

   AsymUp        Asymmetrically rounds numbers fractions up.
                 Same as SymDown for negative numbers.
                 Similar to Ceiling.

   SymUp         Symmetrically rounds fractions up - that is, away from 0.
                 Same as AsymUp for positive numbers.
                 Same as AsymDown for negative numbers.

   AsymArith     Asymmetric arithmetic rounding - rounds .5 up always.
                 Similar to Java worksheet Round function.

   SymArith      Symmetric arithmetic rounding - rounds .5 away from 0.
                 Same as AsymArith for positive numbers.
                 Similar to Excel Worksheet Round function.

   BRound        Banker's rounding.
                 Rounds .5 up or down to achieve an even number.
                 Symmetrical by definition.

   RandRound     Random rounding.
                 Rounds .5 up or down in a random fashion.

   AltRound      Alternating rounding.
                 Alternates between rounding .5 up or down.

   ATruncDigits  Same as AsyncTrunc but takes different arguments.

T�m bu i�levleri, iki ba��ms�z de�i�keni al�r: yuvarlanmas�n� numaras� ve iste�e ba�l� bir fakt�r. Fakt�r atlan�rsa, sonra i�levleri, yukar�daki y�ntemlerden birini kullanarak olu�turulan bir tamsay� d�nd�r�r. Fakt�r belirtilmezse, say� farkl� yuvarlama efektleri fakt�r�yle �l�eklenir. �rne�in AsymArith (2.55, 10), 2.6 �retir, bunu di�er bir deyi�le, 1/fakt�r� yuvarlar = 1/10 = 0,1.

Not: BIR fakt�r�, 0, bir �al��t�rma hatas� �retir: 1/fakt�r� = 1/0.

A�a��daki tablo, �e�itli etkenlere etkisini g�stermektedir:

   Expression       Result  Comment
   --------------------------------------------------------------------
   AsymArith(2.5)     3     Rounds up to next integer.
   BRound(2.18, 20)   2.2   Rounds to the nearest 5 cents (1/20 dollar).
   SymDown(25, .1)   20     Rounds down to an even multiple of 10.

Yukar�daki a��klama istisnas�, ondal�k basamak say�s�n� bir etmen yerine belirtmenize olanak veren bir �ablon i�levi olan ADownDigits ' dir.

   Expression            Result Comment
   ---------------------------------------------------------------------
   ADownDigits(2.18, 1)    2.1  Rounds down to next multiple of 10 ^ -1.

Liste i�levi

   Function AsymDown(ByVal X As Double, _
            Optional ByVal Factor As Double = 1) As Double
     AsymDown = Int(X * Factor) / Factor
   End Function

   Function SymDown(ByVal X As Double, _
            Optional ByVal Factor As Double = 1) As Double
     SymDown = Fix(X * Factor) / Factor
   '  Alternately:
   '  SymDown = AsymDown(Abs(X), Factor) * Sgn(X)
   End Function

   Function AsymUp(ByVal X As Double, _
            Optional ByVal Factor As Double = 1) As Double
   Dim Temp As Double
     Temp = Int(X * Factor)
     AsymUp = (Temp + IIf(X = Temp, 0, 1)) / Factor
   End Function

   Function SymUp(ByVal X As Double, _
            Optional ByVal Factor As Double = 1) As Double
   Dim Temp As Double
     Temp = Fix(X * Factor)
     SymUp = (Temp + IIf(X = Temp, 0, Sgn(X))) / Factor
   End Function

   Function AsymArith(ByVal X As Double, _
            Optional ByVal Factor As Double = 1) As Double
     AsymArith = Int(X * Factor + 0.5) / Factor
   End Function

   Function SymArith(ByVal X As Double, _
            Optional ByVal Factor As Double = 1) As Double
     SymArith = Fix(X * Factor + 0.5 * Sgn(X)) / Factor
   '  Alternately:
   '  SymArith = Abs(AsymArith(X, Factor)) * Sgn(X)
   End Function

   Function BRound(ByVal X As Double, _
            Optional ByVal Factor As Double = 1) As Double
   '  For smaller numbers:
   '  BRound = CLng(X * Factor) / Factor
   Dim Temp As Double, FixTemp As Double
     Temp = X * Factor
     FixTemp = Fix(Temp + 0.5 * Sgn(X))
     ' Handle rounding of .5 in a special manner
     If Temp - Int(Temp) = 0.5 Then
       If FixTemp / 2 <> Int(FixTemp / 2) Then ' Is Temp odd
         ' Reduce Magnitude by 1 to make even
         FixTemp = FixTemp - Sgn(X)
       End If
     End If
     BRound = FixTemp / Factor
   End Function

   Function RandRound(ByVal X As Double, _
            Optional ByVal Factor As Double = 1) As Double
   ' Should Execute Randomize statement somewhere prior to calling.
   Dim Temp As Double, FixTemp As Double
     Temp = X * Factor
     FixTemp = Fix(Temp + 0.5 * Sgn(X))
     ' Handle rounding of .5 in a special manner.
     If Temp - Int(Temp) = 0.5 Then
       ' Reduce Magnitude by 1 in half the cases.
       FixTemp = FixTemp - Int(Rnd * 2) * Sgn(X)
     End If
     RandRound = FixTemp / Factor
   End Function

   Function AltRound(ByVal X As Double, _
            Optional ByVal Factor As Double = 1) As Double
   Static fReduce As Boolean
   Dim Temp As Double, FixTemp As Double
     Temp = X * Factor
     FixTemp = Fix(Temp + 0.5 * Sgn(X))
     ' Handle rounding of .5 in a special manner.
     If Temp - Int(Temp) = 0.5 Then
       ' Alternate between rounding .5 down (negative) and up (positive).
       If (fReduce And Sgn(X) = 1) Or (Not fReduce And Sgn(X) = -1) Then
       ' Or, replace the previous If statement with the following to
       ' alternate between rounding .5 to reduce magnitude and increase
       ' magnitude.
       ' If fReduce Then
         FixTemp = FixTemp - Sgn(X)
       End If
       fReduce = Not fReduce
     End If
     AltRound = FixTemp / Factor
   End Function

   Function ADownDigits(ByVal X As Double, _
            Optional ByVal Digits As Integer = 0) As Double
     ADownDigits = AsymDown(X, 10 ^ Digits)
   End Function

Not: Excel'in MRound() �al��ma sayfas� i�levi, yerle�ik d��nda - yuvarlamay� ba��ms�z �ekilde ADownDigits, ikinci ba��ms�z de�i�ken, basamak say�s�n� bir etmen yerine burada belirler, i�levleri ger�ekle�tirin.

Burada sunulan bir yuvarlama uygulamalar�, 10 kuvvetine yuvarlanacak sahip olmad��n�z i�in daha esnek oldu�u gibi MRound() bir etmen kullan�n. Sar�c� i�levleri, ADownDigits �ekilde yazabilirsiniz.

Nokta k�s�tlamalar� kayan

T�m Burada sunulan bir yuvarlama uygulamalar� yakla��k 15 ondal�k basama�� g�sterebilir double veri t�r�n� kullan�n.

T�m ondal�k de�erleri tam olarak ifade edilebilir oldu�undan, g�r�nt� de�er saklanan de�eri e�le�medi�inden beklenmeyen sonu�lar alabilirsiniz.

�rne�in, 2,25 numaray� dahili olarak olarak, aritmetik yuvarlama sahip a�a�� yuvarlama, 2.2499999..., depolanm�� olabilir yerine bekledi�iniz gibi ayarlay�n. Bir say� ile b�y�k olas�l�� ideal ondal�k de�eri depolanan ikili de�eri farkl� put Ayr�ca, daha fazla hesaplamalar�.

Bu durumda, 4 basama�a tam olan para birimi gibi farkl� veri t�r� se�mek isteyebilirsiniz.

Variant veri t�rleri ve <a1>kullan�m</a1> her �ey olabilir decimal veri t�r�ne d�n��t�rmek i�in CDec() 28 ondal�k basama�a kadar tam yapma da d��nebilirsiniz.

Para birimi de�erleri yuvarlama

Tam olarak 4 ondal�k basama�a kadar olan para birimi veri t�r�n� kulland��n�zda genelde cents i�in 2 ondal�k basamak yuvarlamak istedi�iniz.

Round2CB i�levi i�in 2 ondal�k basamak Banka'n�n yuvarlama yapar, ancak �zg�n numaras�n� �arp�n bir kodlanm�� bir t�revidir. Bu, Parasal Tutar para birimi veri t�r� s�n�rlar�n� yakla�t��n� bildiren, olas� ta�ma ko�ul engeller.

   Function Round2CB (ByVal X As Currency) As Currency
     Round2CB = CCur(X / 100) * 100
   End Function

Ondal�k de�erleri yuvarlama

Ondal�k veri t�r�n� kullanarak asimetrik aritmetik yuvarlama bir �rnek a�a��da verilmi�tir:

   Function AsymArithDec(ByVal X As Variant, _
            Optional ByVal Factor As Variant = 1) As Variant
     If Not IsNumeric(X) Then
       AsymArithDec = X
     Else
       If Not IsNumeric(Factor) Then Factor = 1
       AsymArithDec = Int(CDec(X * Factor) + .5)
     End If
   End Function

Yuvarlama, bir k�sayol olarak duyarl�� siliniyor

Okul i�inde taught, yuvarlama pozitif say�lar kullanarak yuvarlama genellikle aritmetik ayn�d�r. Yuvarlama bu t�r�yle, yaln�zca 1 basamak ge�mi�te oldu�u i�in yuvarlama i�in numaras�n� bilmeniz gerekir. �nceki, ilk ondal�k basamak basamaklar� yoksay�n. Di�er bir deyi�le, duyarl�k de�erini yuvarlama i�in bir k�sayol olarak b�rak�l�r.

2.4 Hem 2.49 2 a�a�� yuvarlama yaparken �rne�in 2.5 hem de 2.51 3, yuvarlak edin.

Kulland��n�z banka'n�n yuvarlama (veya di�er y�ntemleri.5 yukar� veya a�a�� yuvarlamak) veya negatif say�lar asimetrik aritmetik yuvarlama kullanarak yuvarlak, duyarl�k b�rakarak hatal� sonu�lar i�in burada, en yak�n say�ya yuvarlamak. neden olabilir.

�rne�in, Banka'n�n yuvarlama ile 2.5 yuvarlar, 2 ve 2.51 3 yuvarlar.

-3 I�in-2.51 yuvarlar durumdayken asimetrik aritmetik yuvarlama ile en �ok -2 nin yuvarlar.

Bu makalede sunulan kullan�c� tan�ml� i�levler numaras�'n�n tam duyarl�l�k yuvarlama yaparken dikkate.

Referanslar

Visual Basic Yard�m�, s�r�m 6.0; konu: �nt, i�levler, d�zeltme; yuvarlak i�lev

Microsoft Transact SQL Yard�m�; konu: yuvarlak i�lev; <a2>floor fonksiyon</a2>; <a4>Avize i�levi

(c) Microsoft Corporation 1998, t�m haklar� sakl�d�r. Taraf�ndan katk�y� Malcolm �lgaz, Microsoft Corporation.

Bu makaledeki bilginin uyguland�� durum:

Microsoft Visual Basic Control Creation Edition
Microsoft Visual Basic 5.0 Learning Edition
Microsoft Visual Basic 6.0 Learning Edition
Microsoft Visual Basic 5.0 Professional Edition
Microsoft Visual Basic 6.0 Professional Edition
Microsoft Visual Basic 5.0 Enterprise Edition
Microsoft Visual Basic Enterprise Edition for Windows 6.0
Microsoft Visual Basic for Applications 5.0
Microsoft Visual Basic for Applications 6.0
Microsoft SQL Server 6.0 Standard Edition
Microsoft SQL Server 6.5 Standard Edition
Microsoft SQL Server 7.0 Standard Edition

kbmt kbhowto KB196652 KbMttr

Otomatik Terc�me

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:196652� (http://support.microsoft.com/kb/196652/en-us/ )