Ytl'ye uyarlıyamadıgım makro

[yuzak]

Function YYUVARLA(ILK, SON, TUTAR)
deger = (TUTAR * (ILK - SON))
If deger = 0 Then
YYUVARLA = 0
ElseIf deger < 1000 Then
YYUVARLA = 1000
Else
YYUVARLA = (Round(deger / 50) * 50)
End If
End Function

Kolaygelsin arkadaşlar
Bu formülü tl li zamanda gecikme zammı hesaplarken kullanıyordum,ancak ytl li ortamda 0 deger 1,00 ytl olacagı ve yuvarlama 1-4 ykr aşagı / 5-9 ykr yukarıya çekildiği için çalıştıramıyorum.
yardım edermisiniz.kolaygelsin

 

[omerceri]

Function YYUVARLA(ILK, SON, TUTAR)
deger = (TUTAR * (ILK - SON))

ytl = Left(deger, Len(deger * 100) - 2)
Krş = Right((deger * 100), 2)

birlerKrş = Val(Right(Krş, 1))

If birlerKrş >= 0 And birlerKrş <= 4 Then
birlerKrş = 0

ElseIf birlerKrş > 4 And birlerKrş < 10 Then
birlerKrş = 10
End If

onlarKrş = Left(Krş, 1) * 10

YuvKrş = (onlarKrş + birlerKrş) / 100
YYUVARLA = ytl + YuvKrş


End Function

sağdan soldan derken böyle bir şey yaptım işine yararmı
düzelttim

 

[omerceri]

hata yapmışım düzeltim kusura bakmayın

 

[yuzak]

ytl uyarlaması

Sayın omerceri
tutar boş oldugunda 0 vermiyor
çalışmayı size yolluyabilirmiyim?

 

[omerceri]

kusura bakmayın forma yeni baktım. çalışmayı gönderin gönderin