yeni türk lirasını yuvarlatma

[gazalierbay]

ytl nin virgülden sonraki en son basamağını yuvarlatabilen bir makro bilen varmı
Ã?rnek:187,79 ytl 187,75 olarak
187,74 ytl 187,70 olarak yuvarlatılacak
tşk ler

 

[xxrt]

YTL Hakkında Çeşitli uygulamalar ama gerçek olan birşey var.Oda Yuvarlamalara biraz zor alışacağız.Beheri belli olan değerleri 6 sıfır atarak sonuca ulaşabiliyoruz ama Ã?zellikle Maaş katsayılarının hesaplanmalarında özel tebliğler çıktı.Devlet MemurlarıKanunu 158 nolu Genel Tebliği gibi..
Aylık Gösterge 620x0,0401=24,862 Yuvarlama Sonrası 24,862 Olacak
Ã?zel Hizmet Tazminatı=9.500x0,0401x%125=476,1875 ise 476,19 Olacak.
Nasılsa bu işler rayına oturacak ama bayağı postaki sayacağız..

Size Denemeniz için bir makro vermek isterim.
A1 Hücresine 18,7777777 yazın Normalde bu 18,78 Olacaktır.
A1 Hücresine 18,7444444 yazın buda 18,74 olacak.Bunun için

Sub tt()
[a1] = Round([a1], 2)
End Sub

Bende çeşitli alternatifler aradım.Þu an bu işimi görüyor.Fonksiyonlarda ise

Sayın leventm'nin Ã?rneği güzel.
http://www.excel.web.tr/viewtopic.php?p=5505#5505

Sayın serply'nin Ã?rneği
http://www.excel.web.tr/viewtopic.php?p=5557#5557

Ve Tüm YTL hesaplamalarınız İçin___________>BURAYA