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?
hesaplamada ondalık ayracı sorunu
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
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
ustalar konuşunca çıraklar keser sesi.
teşekkürler arkadaşlar elinize sağlık
Konuyu Okuyanlar: 2 Ziyaretçi