[k005]

Kod: Tümünü seç

sonuc = (msafe - eksen_ara) / kac_nokta
sonuc1 = Format(sonuc, "#0.#0")

bu şekilde bir işlemim var. fakt sonucu virgülden sonra sıfırlıyor..

örnek :

msafe=30
eksen_ara=17,50
kac_nokta = 2

sonuc1= 6,25 çıkması gerekiyor. Fakat sonuc= 6 oluyor. ... Sonuc1= 6,00 oluyor.

[Bülent]

Kod: Tümünü seç

Dim sonuc, sonuc1 As Double

msafe = 30
eksen_ara = 17.5
kac_nokta = 2

sonuc = (msafe - eksen_ara) / kac_nokta
sonuc1 = FormatNumber(sonuc, 2)

MsgBox sonuc, vbInformation, sonuc1


Şeklinde dener misiniz?

[k005]

Hocam teşekkür ederim. Tamamdır.. elinize sağlık.

[Bülent]

Rica ederim.

Kolay gelsin.