AccessTr.neT

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?

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