Excel Formülünü Delphide Uygulama

[Firarist]

Arkadaşlar Excelde =YUKARIYUVARLA(TAMSAYI((A4*A1)/1000);A2) formulünü Delphide nasıl kullanabilirim.
Hücreler yerine Edit bileşenlerini kullanarak yukardaki YUKARIYUVARLA-TAMSAYI formülünün sonucunu bulmak istiyorum.
Lütfen Yardım

[rsimsek]

yuvarlama işlemi klasik olarak

Kod: Tümünü seç

tam_sayi := trunc(real_sayi + 0.5); 

şeklinde yapılabilir.

[mussimsek]

* Round - en yakın tamsayıya yuvarlar. Mesela : 3,2'yi 3 - 5,6'yı 6 yapar.

* RoundTo - banker yuvarlaması yapar. Mesela 100 binlere veya milyonlara yuvarlamak gibi.

* Trunc - virgülden sonraki kısmı atıp, sayıyı tamsayıya çevirir. Mesela 3,9'u 3 yapar.

Kolay gelsin.