hesapla dediğimde uzun ondalık sonuç çıkıyor.

[drseref]

userform da hesapla butonuna basınca uzun ondalık sonuç çıkıyor.Çözüm nasıl olabilir.Örnek dosya link de

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

 

[drseref]

Özel Alt CommandButton1_Click()
Dim num1 Çift olarak, num2 Çift olarak, num3 Çift olarak, num4 Çift olarak, num5 Çift olarak, num6 Çift olarak, num7 Çift olarak, num8 Çift olarak, num9 Çift olarak

' TextBox'lardan alınan veriyi sayıya çevirme ve hata yönetimi

num1 = Biçim(CDbl(Metin Kutusu3.Değer), "#,##0.00")
num2 = Biçim(CDbl(Metin Kutusu1.Değer), "#,##0.00")
num3 = Biçim(CDbl(Metin Kutusu2.Değer), "#,##0.00")
num4 = Biçim(CDbl(Metin Kutusu4.Değer), "#,##0.00")
num5 = Biçim(CDbl(Metin Kutusu5.Değer), "#,##0.00")
num6 = Biçim(CDbl(Metin Kutusu8.Değer), "#,##0.00")
num7 = Biçim(CDbl(Metin Kutusu9.Değer), "#,##0.00")

' Sonuçları ilgili label'lara yazdırma
Label3.Caption = "Makine Sayısı (90 ton): " & num1 / (num2 * num3 * num4 * num5 * 390)
Label12.Caption = "Makine Sayısı (70 ton): " & num1 / (num2 * num3 * num4 * num5 * 300)
Label13.Caption = "Makine Sayısı (50 ton): " & num1 / (num2 * num3 * num4 * num5 * 250)
Label11.Caption = "Kamyon Sayısı: " & num1 / (num2 * num4 * num6 * num7)

Sub'dan Çık
Bu kod da çok uzun bi ondalık sonuç çıkıyor. Düzeltme nasıl yapılabilir.

 

[DoğanD]

Merhaba,

Hesaplamaları Yuvarla parantezine alabilirsiniz. Aşağıdaki örnekte altı çizili yazılmış 2 numarası virgülden sonraki karakter sayısını ifade eder ve en yakın sayıya (aşağı yada yukarı) yuvarlar. Virgülden sonra karakter görmek istemiyorsanız sıfır yazabilirsiniz.
Örn: Label3.Caption = "Makine Sayısı (90 ton): " & Round(num1 / (num2 * num3 * num4 * num5 * 390),2)

 

[drseref]

teşekkür ederim.