küsüratı bulmak

[ayhan2122]

Arkadaşlar;
İlişkisiz bir formda iki adet metin kutusu oluşturun. (örn:Metin0 ve Metin2). Metin2'nin denetim kaynağına
=([metin0]-Fix([metin0]))*100
yazın ve kaydedin. Formu normal görünümde açıp Metin0'a 54,595 yazın.
Formüle göre;
54,595-54=0,595 eder ve 0,595*100=59,5 eder.
Yani sonuç, Metin2 kutusunda "59,5" olmalı. Oysa "59,5" yerine benim bilgisayar hep "59,4999999999999" sonucunu veriyor. Acaba benim bilgisayar mı delirmiş yoksa herkeste de aynı mı?
Yardımlarınızı bekliyorum.
Saygılar, iyi çalışmalar.

 

[gitarisyen]

Sayın ayhan2122;

Sizden benim bilgisayara da bulaştı sanırım bu özellik. Dediğiniz gibi yaptım. Aynı şey bende de oluyor...

Hatta değişik sayılarla denemeler yaptım. Örneğin 52,3 yazınca 29,9999999999997 çıkıyor (burada o kadar rakamdan sonra sondaki 7 rakamına sebepsiz yere çok güldüm)...

 

[gulsum1]

cevap

Function sayim(hucre) As String
Dim i As Integer
Dim a As Integer
If hucre <> " " Then
For i = 1 To Len(hucre)
sayi = Mid(hucre, i, 1)
If sayi = "," Then
sayim = Mid(hucre, i + 1, Len(hucre)) / 100
End If
Next i
End If
End Function

Private Sub Metin0_AfterUpdate()
Me.Metin2 = sayim(Me.Metin0)
End Sub