Round saçmalıyor arkadaşlar

[kocivan]

Gönderdiğim örnekte round fonksiyonun kullanıyorum yuvarlamak için ancak 1,005
olan bir sayıyı round(sayı,2) tarzında yuvarladığımda 1,00 yapıyor olması gereken
1,01 yardım edebilirseniz sevinirim herkeze ii çalışmalar.

 

[yeni54]

bu konu bir kaç kez yine geçti.

veyselemre adlı üye aşağıdaki linkte, aşağıdaki şekilde çözüme kavuşturmuş sağolsun.

http://www.excel.web.tr/showthread.php?t=36870&highlight=application

Sub aa()
Dim deger1 As Double, deger2 As Double
Set ex = CreateObject("excel.application")
deger1 = 11.025
deger2 = 11.875

MsgBox ex.worksheetfunction.Round(deger1, 2)
MsgBox ex.worksheetfunction.Round(deger2, 2)
Set ex = Nothing
End Sub

 

[kocivan]

Sayın yeni54 bu cevabı gördüm zaten excel den fonksiyon çağırmak yerine daha farklı bir çözümü olup olmadığını öğrenmek için sordum ilgilendiğiniz içinde teşekkür ederim başka bir çözüm biliyormusunuz acaba?

 

[modalı]

Sayın kocivan,

Kodlarda round fonksiyonunu kullanmayın. Form üstünde ilgili alanın biçimini standart ondalık kısmını ise 2 olarak ayarlayıp deneyin.

İyi çalışmalar

 

[beab05]

Merhaba;

Me.Metin4.Value = Round((Me.Metin0.Value [COLOR="Red"]+ 0.1[/COLOR]) * Me.Metin2.Value, 2)
    Me.Metin6.Value = Round((Me.Metin0.Value [COLOR="red"]+ 0.1[/COLOR]) * Me.Metin2.Value, 2)
    Me.Metin8.Value = Me.Metin0 + Me.Metin4 + Me.Metin6

olur..

 

[modalı]

Sayın

Aşağıdaki fonksiyonu kullanın. (Kodları bir modüle kopyalayıp kaydedin)

Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double
    
    'Implements a variant of the Round() function, that rounds-to-larger
    'rather than rounds-to-even, like in Excel:
    Dim strFormatString As String 'Format string
    Dim strResult As String
    'If input is zero, just return zero. Else format as appropriate:
    If dblInput <> 0 Then
        strFormatString = "#." & String(intDecimals, "#")
        If Right(strFormatString, 1) = "." Then
            strResult = Format(dblInput, "#")
        Else
            strResult = Format(dblInput, strFormatString)
        End If
    Else
        strResult = "0"
    End If
    
    'If the result is zero, Format() will return "." - change this to "0":
    If strResult = "." Then
        strResult = "0"
    End If
    
    RoundToLarger = CDbl(strResult)
End Function

RoundToLarger(Metin0*Metin2,2)

Olarak kullanın

İyi çalışmalar

 

[kocivan]

Sayın beab05 sizin yaptığınızda fon hanesi 100.50 çıkıyor 1.01 çıkması lazım sayın modalı sizin söylediğiniz gibi zaten örenekte ancak toplama yaptığımızda örneği incelerseniz sonuç 102,51 çıkıyor doğrusu 102,52 olmalı ilgilendiğiniz için ikinizede teşekkürler ama ikiside sorunu çözmedi.

 

[kocivan]

Kesinlikle doğru cevap sayın modalı çok teşekkürler yardım etmeye çalışan tüm herkezede tekrar teşekkür ederim iyi çalışmalar herkeze.

 

[beab05]

Sayın beab05 sizin yaptığınızda fon hanesi 100.50 çıkıyor 1.01 çıkması lazım sayın modalı sizin söylediğiniz gibi zaten örenekte ancak toplama yaptığımızda örneği incelerseniz sonuç 102,51 çıkıyor doğrusu 102,52 olmalı ilgilendiğiniz için ikinizede teşekkürler ama ikiside sorunu çözmedi.

Çok ilginç doğrusu bende 1.01 ve 102.52 çıkıyor? farkımız nerde acaba ?

 

[yeni54]

önceki seferlerde de kafamı kurcalamış ancak üzerine pek düşmemiştim.

şimdi kısa bir uğraş vereyim dedim.

round u birkaç sayıda denedim. olması gerektiği gibi 5 ve üzeri sayıları yuvarlaması gerekirken 5 in üzeri olanlarını yuvarlıyor.

yani, round(1,005,2) yi 1 olarak yuvarlıyor.

o halde olabilecek en küçük double sayıyı çıkan sonuca toplayıp o şekilde round edersek doğru sonuca ulaşıyor.

bu örnekte, round(100.5 * 0.01,2) yapmak yerine
round((100.5 * 0.01) + 0.0000001),2) yapınca doğru oluyor.

yani beab05 in dediği gibi bir rakam toplayacağız ancak double ın kabül ettiği en küçük 0.0000....1 rakamını.

tabi daha akılcı bir yöntem bulmak lazım olduğu kesin.

 

[yeni54]

Private Function myRound(sayi As Double, basamak As Byte) As Double
    myRound = Round((sayi + 0.00000001), basamak)
End Function

myRound(Metin0*Metin2,2)

olarak kullanınca da doğru sonucu veriyor.

çeşit olsun diye yazdım.

sayın modalı nın verdiği fonksiyonu kullanmak lazım.

 

[beab05]

İlginç olan 0.01 ile toplayınca bende doğru sonuç çıkıyor.. Versiyon farkı mı acaba??

Yeni54 super açıklama yapmışsın. Teşekkür ederiz...

 

[modalı]

Sayın beabe05,

Haklısınız versiyon farkı. Access 2002 ve 2003 de böyle oluyor.


İyi çalışmalar

 

[Zeki Gürsoy]

Selam,
İstenen sonucu bu şekilde verdi.

Private Sub Komut10_Click()
    Me.Metin4.Value = Round(CStr(Me.Metin0.Value) * CStr(Me.Metin2.Value), 2)
    Me.Metin6.Value = Round(CStr(Me.Metin0.Value) * CStr(Me.Metin2.Value), 2)
    Me.Metin8.Value = Me.Metin0 + Me.Metin4 + Me.Metin6
End Sub

 

[kocivan]

Böyle basit birşeyi atlamış olmaları gerçekten çok garip tasarlarken microsoft hiç mi hesap yapmadı bunlarla.

 

[Zeki Gürsoy]

Sanırım yerel sayı formatından kaynaklanıyor. "," ve "." farkı. String veritipine çevrildiğinde sorun ortadan kalkıyor..

 

[kocivan]

dediğiniz doğru sayın anemos değişken tanımlarken string olarak tanımladığımda sorun devam ediyor ama sizin yaptığınız gibi stringe çevirdiğimizde sorun çözülüyor.