اريد دالة او طريقة تخرج العدد العشري من الرقم
يعني مثال
الرقم 161.25 العدد العشري 25
الرقم 131.00 العدد العشري 00
وهكذا
اريد دالة او طريقة تخرج العدد العشري من الرقم
مغلق
الأخ الفاضل ...
جرب أستخدام:
Public Function GetFractional(Num As Double) As Long Dim Pos As Integer Pos = InStr(1, Num, ".") If Pos <> 0 Then GetFractional = Mid$(Num, Pos + 1) End Function
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
ساجربها وارد لاحقا ان شاء الله
ولكن كنت افضل استخدام دالة ان وجد !!
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
يارت تكون هناك دالة اسهل وأوفضل لانو عندي كثير من الحقول التي تلزم تلزم التطبيق عليها فصعب استخدم هذا الكود
لاني بصراحة لم افهمه او اتكون هناك طريقة افضل
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
السلام عليكم
أخي الكريم
دالة int تعطيك الرقم الصحيح
في الاستعلام أدخل المعادلة التالية :
fraction:[mynum]-int([mynum])
حيث حقل mynum هو الرقم الذي تريد أن تفصل الرقم العشري عنه
الذي حصل إنك طرحت من العدد 161.25 العدد الصحيح لهذا العدد وهو 161 وبالتالي سيعطيك 0.25
والسلام
قالَ رَسُولُ الله صلى الله عليه وسلم:
"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "
حديث حسن صحيح
طريقه حلوه اخي عمار جربتها وماشيه معي
تم تعديل هذه المشاركة بواسطة abo_slaim في 8 أبريل 2007 في 17:52
لدي طريقة جربتها قبلا..
ولكنها قائمة على كون الرقم مكون من عدد محدد من المنازل العشرية؛ حيث يمكن هنا اخذ Right من الرقم من خلال الدالة ووضع العدد للحروف هو عدد المنازل العشرية المحدد مسبقا..
حيث:
Franct هو المتغير الذي يخزن قيمة العشر
2 هو عدد الخانات العشرية المحدد مسبقا..
100 تتغير تبعا لعدد الخانات العشرية..
Fract = Val(Right(Me.Num),2)/100
بالنسبة لسؤال الاخ رامي حول وجود دالة..مع الشكر الجزيل للأخ الكريم اسامة ومبروك ولو انها متاخرة..والله لايق لك الأوسمة والشهادات مع انها لا تفي بحقك كاملا ...فانت علم من اعلام التميز في المنتدى..
ما المانع من صنع دالة اذا لم توجد...
فهذا هو لب عمل البرمجة..
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
الأخ الفاضل ... همام ابوعرقوب
همام ابوعرقوب كتب:مبروك ولو انها متاخرة..
الله يبارك فيك، وانت أيضاً مميز جداً فى ردودك واجاباتك ومبروك عليك لقب (عضو مميز :)) وأن شاء الله المزيد فى المستقبل القريب
همام ابوعرقوب كتب:ما المانع من صنع دالة اذا لم توجد...فهذا هو لب عمل البرمجة..
أخى الفاصل ما قمت بوضعه فى ردى الأول هو فعلاً دالة (تعمل مع أى كسر بغض النظر عن طوله)
وحيث أن سؤال الأخ رامي أشطرت أن الرقم الناتج يظهر بشكل صحيح (25) وليس كسرى (0.25) لكان هناك طرق أبسط من ذلك مثل الموجوده فى الموضوع: اريد بعض الدوال
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
عزيزي اسامة شكرا جزيلا على الذوق الذي ينم عن كرم اخلاقك
ولكني طرحت سؤالي: مالمانع من "صنع" دالة على الأخ رامي حيث انه قال ان يفضل استخدام دالة ان وجدت وقد يكن هنا لم ينتبه لمشاركتك حيث انها تحوي دالة.. وكلمة صنع هنا معناها ان لم توجد دالة فلنقم بصنعها ثم استخدامها.. فكاني اعاتبه لعدم انتباهه لوجود الدالة...لاني رأيت وانتبهت الى ما استخدمته واعلم تماما انه دالة.. وتفي بالغرض تماما..
وشكرا مرة اخرى ودعواتي لك بالتقدم والتوفيق دائما... ومايزعل اخي رامي ابدا انا اردت ان اويد فكرة الاخ اسامة..
اخوك همام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
اخواني الاعزاء
اضافة الى ما تفضلتم به مشكورين
اود اضافة مثال تم عمل ذلك به بالنموذج بمربع نص غير منضم وكذلك باستعلام
الحل للاستاذ الكبير ابو هادي وقد قمت بضرب التعبير في 100 للحصول على رقم صحيح على اعتبار ان الكسر يتكون من خانتين.
السلام عليكم
انا خزنت فى الجدول 12.345 و 25.3215 والنتايج كانت ملخبطه
الاخوة الاعزاء الكرام الذين شاركو في هذا الموضوع الصراحة انني احسد نفسي لوجودي في هذا المنتدى الرائع جدا لقد اتحفتوني بمشاركتم وبمساعدتي في حل سؤالى وقد تم بفضل الله ثم بفضلكم الوصول الى الحل الذي اريده
جزاكم الله خيرا وسدد خطاكم وكثر الله من امثالكم
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
هذا الموضوع مغلق.