G.V.Hesaplama

[svural11]

Function vhh(a, b As Variant)
c = Range("a10")
d = Range("a11")
e = Range("a12")
f = Range("a13")

g = Range("b10") '15
h = Range("b11") '20
k = Range("b12") '25
m = Range("b13") '30

If a > e And a < f Then vhh = (b * m) / 100
If a > d And a < e Then vhh = (b * k) / 100
If a > c And a < d Then vhh = (b * h) / 100
If a < c + 1 Then vhh = (b * g) / 100
If a < c + 1 And a + b > c Then vhh = ((a + b - c) * h) / 100 + (c - a) * g / 100
If a < d + 1 And a + b > d Then vhh = ((a + b - d) * k) / 100 + (d - a) * h / 100
If a < e + 1 And a + b > e Then vhh = ((a + b - e) * m) / 100 + (e - a) * k / 100



End Function

Yukarıdaki kodlarla G.V.hesaplatıyorum. Sorun şurada (c,d,e,f,g,h,k,m ) atama yaptığım hücrelerde değişiklik yaptığımda sonuç değişmiyor. Ancak a ve b değikenlerinide değiştirirsem doğru sonucu veriyor. Bu konuda bana yardımcı oalbilirmisiniz.

Çalışmalarınızda başarılar dilerim

 

[SAÐLIKÇI]

g.v.hesaplama

arkadaşım
ben daha önce bu sorunla karşılaştım bu sorunum bu site vasıtası ile çözüldü.
bu sayfa arşivinde ek ödeme bordrosu var
oradaki gelir vergisi hesaplaması gayet iyi çalışıyor

 

[Levent Menteşoğlu]

Fonksiyonunuzu aşağıdaki gibi değiştirin ve her değişkene ilgili hücreyi tanıtmanız gerekiyor.

[vb:1:d330c67a8b]Function vhh(a, b,c,d,e,f,g,h,k,m As Variant)
If a > e And a < f Then vhh = (b * m) / 100
If a > d And a < e Then vhh = (b * k) / 100
If a > c And a < d Then vhh = (b * h) / 100
If a < c + 1 Then vhh = (b * g) / 100
If a < c + 1 And a + b > c Then vhh = ((a + b - c) * h) / 100 + (c - a) * g / 100
If a < d + 1 And a + b > d Then vhh = ((a + b - d) * k) / 100 + (d - a) * h / 100
If a < e + 1 And a + b > e Then vhh = ((a + b - e) * m) / 100 + (e - a) * k / 100
End Function
[/vb:1:d330c67a8b]