يااخوان سلام عليكم ورحمة الله وبركاته الله يعافكيم ياخاون ابغى منكم دالتين فقط وهما كالتالي:
الأولى : دالة اقتطاع الرقم العشري من الرقم كاملا او بمعنى ثاني ابغى دالة تجيب لي الرقم العشري فقط وتحذف مابعد الفاصلة يعني تحذف الرقم الصحيح.
الثانية : دالة تقريب الارقام العشرية .
والله يعطيكم الف الف عافية .
تم تعديل هذه المشاركة بواسطة HnHn في 14 مارس 2007 في 23:53
قال صلى الله عليه وسلم من قال كل يوم حين يصبح وحين يمسي : حسبي الله لاإله الا هو عليه توكلت وهو رب العرش العظيم، 7 مرات كفاه الله تعالى ماأهمه من أمر الدنيا والآخرة .
للتقريب أستعمل Round
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
لحذف الرقم العشرى استخدم دالة FIX
Private Sub Command1_Click() Dim num As Double num = Val(Text2) Text1 = Fix(num) End Sub
اما لحذف الرقم الصحيح
فيمكنك طرح الرقم الاصلى من الرقم الناتج من العملية السابقة
مبارك لشعب تونس 
الأخ الفاضل ...
راجع الموضوع: اريد بعض الدوال
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…