Fonksiyon çalışmıyor.

[krizantem_kasimpati]

Merhaba.
Aşağıda hazırladığım fonksiyonu çalıştıramadım.Yardımcı olursanız sevinirim.Şimden teşekkürler


Function Ara_Kesit_Alani(ilk_Km As Integer, ilk_Kesit_Alani As Integer, ilk_Ara_Hacim As Integer, ikinci_Km As Integer, ikinci_Kesit_Alani As Integer, ikinci_Ara_Hacim As Integer, Ara_Km As Integer)
a = ilk_Km
b = ilk_Kesit_Alani
c = ilk_Ara_Hacim
d = ikinci_Km
e = ikinci_Kesit_Alani
f = ikinci_Ara_Hacim
g = Ara_Km
Ara_Kesit_Alani = (((c + f) * 2) - (((g - a) * b) + ((d - g) * e))) / (d - a)
End Function

 

[Merhum İdris SERDAR]

.

Çalışıyor.

http://s6.dosya.tc/server8/312j4t/denenem3.rar.html


.

 

[krizantem_kasimpati]

Teşekkür ederim.Hata bende.Seçtiğim sayılar "integer" sayı değişkeni ile uyumlu değilmiş."Double" olarak değiştirdim ve düzeldi.Saygılar..