sayı yuvarlama işini anlayamadım...

[serkan]

merhaba arkadaşlar..
sorunumu şöyle anlatayım projemde bir malzeme ihtiyaç raporu çıkarıyorum.Rapor stokların gr. cinsinden ihtiyacını veriyor.Şimdi şöyle bir istek geldi..Diyelimki firmaya 80 kg.(80.000 Gr) şeker lazım fakat şeker 50kg.lık çuvallarda kullanıcı bunu 80 Kg. veremiyor.2 çuval yani 100 kg.şeker vermesi lazım ve 20 kg.da beklemede kalması lazım.Şimdi stok kartına ambalaj bilgisi yazıp. 80/50=1,xxx gibi bir rakam çıkacak bunu bir döngü ile tabloyu baştan sona tarayıp ambalajdaki ağırlığa böldürüp yukarı doğru yuvarlamam gerekli.Diyelimki 1,5 yani virgülden sonraki rakam 5 veya üstü ise hadi hallettik ama benim projemde 1,000001 bile olsa 2 ye tamamlanması lazım..Bu konuda bir fikir bir kod rica etsem çok makbule geçecek..

[ulu coder]

if trunc(floatdeger)<floatdeger Then ...

Bi deneyin. Trunc tamsayı kısmı geri döndürüyor.
Eğer tamsayı kısmı sayıdan küçükse...

[sadettinpolat]

Kod: Tümünü seç

uses math
...

SetRoundMode(rmUp);
Sayi := RoundTo(1.00000000772,0); //  Sayi = 2 olur

[serkan]

hocam tam olarak projeye uygulamadım ama trunc fonksiyonunu işe yarayacak gibi duruyor sağolasın şöyleki;80/50:=1,XXX çıkıyor ben sonucun tam sayı kısmını alıp 1 ekliyorum,yani 1+1=2 şeklinde yuvarlama yapıyor.Burada kontrol edilecek tek şey sonuç tam sayı çıkıyorsa bidaha 1 eklememem lazım onuda dediğin gibi küçüktür işareti ile hallediyorum.Kolay gelsin