منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : التّقريب إلى العدد الطبيعي الأكبر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
                                                                                           [b]السّلام عليكم و رحمة الله و بركاته[/b]
أساتذتي الأفاضل
إخوتي الأعزّاء
لو تكرّمتم فضلاً لا أمرًا
كيف يمكن تقريب النتيجة بالتاكست3 إلى العدد الطبيعي الأكبر مباشرة
مثلاً :
4578.25 يتم تقريبه إلى 4579.00
55844.70 يتم تقريبه إلى العدد 55845.00
بارك الله فيكم مسبّقًا و جزاكم خير الجزاء
                                                              فائق إحتراماتي
السلام عليكم...

إذا كنت تقصد أنه إذا كان العدد يحتوي على كسر - مهما كانت قيمته - فإنه يُقرب إلى العدد الأكبر التالي، فيمكنك استعمال كود كالتالي (بفرض أن العدد الأصلي في Text1 و العدد المقرب سيظهر في Text2):

PHP كود :
Dim Val1 As Double
    
Val1 
CDbl(Text1.Text)
Text2.Text IIf(Fix(Val1) = Val1CStr(Val1), CStr(Fix(Val1) + 1)) 

نرجو الاستفادة و السلام.
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك أخي الفاضبل " ناجي إبراهيم "
جزاك الله خير الجزاء و زادها بموازين حسناتك
هذا هو المطلوب بالضبط
فائق إحتراماتي