AccessTr.neT

Tam Versiyon: hesaplamada ondalık ayracı sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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
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
teşekkürler arkadaşlar elinize sağlık