AccessTr.neT
hesaplamada ondalık ayracı sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: hesaplamada ondalık ayracı sorunu (/konu-hesaplamada-ondalik-ayraci-sorunu.html)



hesaplamada ondalık ayracı sorunu - kokotuna - 11/04/2012

Merhaba;
ekteki formda hesapla butonuyla hesap yapıyorum ancak bilgisayarın varsayılan ondalık ayracı virgül olduğu halde YASS değerini virgüllü girdiğimde sonucu yalnış veriyor, nokta olarak girdiğimde doğru sonucu veriyor. sorun nedir anlayamadım varsayılanı virgül olarak kullanmak için ne yapmam gerekiyor?

hesap.rar



Cvp: hesaplamada ondalık ayracı sorunu - Kur@l - 11/04/2012

Kodu aşağıdaki ile değiştirip doğru hesaplayıp hesaplamadığını bildirirseniz sevinirim.

Private Sub Komut12_Click()
qem = Format((0.8) * (Nort) * ((B + 0.3) / B) * ((B + 0.3) / B) * (1 + (D / (3 * B))) / 10, "####.00")
End Sub

Private Sub Komut16_Click()
Me.YASS = Replace(YASS, ",", ".")
If Me.YASS < B Then
qem = (((0.8) * (Nort) * ((B + 0.3) / B) * ((B + 0.3) / B) * (1 + (D / (3 * B)))) / 10) * Cw
ElseIf B < YASS Then
qem = (0.8) * (Nort) * ((B + 0.3) / B) * ((B + 0.3) / B) * (1 + (D / (3 * B))) / 10
End If

End Sub


Private Sub YASS_AfterUpdate()
Me.YASS = Replace(YASS, ",", ".")
Cw = Format(0.5 + 0.5 * (YASS / (D + B)), "####.00")
End Sub



Cvp: hesaplamada ondalık ayracı sorunu - kokotuna - 12/04/2012

teşekkürler arkadaşlar elinize sağlık