Fonksiyonda değer girmemişsem sıfır kabul etsin

[galkan]

Merhaba Arkadaşlar
Aşagıda örnek olarak yazdığım fonksiyonda
KdvOranı'nı boş bırakırsam sıfır kabul etsin istiyorum.
Sorunun daha iyi anlaşılabilmesi için ekli dosyaya bakabilirsiniz.

Function KDVLITOPLAM(Tutar, KdvOranı)
KDVLITOPLAM = (Tutar * KdvOranı) + Tutar
End Function

Bu şekliyle #VALUE! hatası veriyor.


Ayrıca
Formun Fonksiyonlar bölümünde
"Kullanıcı tanımlı fonksiyonlarda açıklama eklemek"
başlığı altında bir sorum olmuştu cevaplayan arkadaşımız çıkmadı.
Konuyla ilgili bilgisi olan varsa lütfen yardımcı olsun
Tüm form arkadaslarıma şimdiden teşekkür ederim.

 

[hamzacan]

Function KDVLITOPLAM(Tutar, KdvOranı)
KDVLITOPLAM = (Tutar * KdvOranı) + Tutar
End Function

Function KDVLITOPLAM(Tutar, KdvOranı)

if KdvOranı = "" Then
KdvOranı = 0
End if

KDVLITOPLAM = (Tutar * KdvOranı) + Tutar
End Function


şeklinde olabilir sanırım.

 

[galkan]

Bu şekilde bede denedim ama olmuyor
"As...." kullanmamız gerekir diye düşünüyorum ama onuda ben beceremedim.

Function KDVLITOPLAM(Tutar, KdvOranı As Double)
KDVLITOPLAM = (Tutar * KdvOranı) + Tutar
End Function

"As Double" örneğinde olduğu gibi bir komut gerekiyor sanırım.
İlginize tesekkürler