اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اقتران قطع الرقم double الى عدد صحيح


mahmoud20107

الردود الموصى بها

السلام عليكم

كيف يمكن الحصول على الرقم بالكسر العشرى مع عدم التقريب

لقد حاولت كثيرا فى خصائص الحقول حيث اننى اريد الرقم بكسر عشرى دون رمز العملة فهذا الحل لا يكون الا مع اختيار نوع الحقل عملة !!

خالص شكرى للجميع

الأصيل

رابط هذا التعليق
شارك

  • 4 weeks later...

الاخوة الافاضل

برجاء التكرم بايضاح التقريب فمثلا لو اردت تقريب العدد 1.358 الى العدد 1.360اى اريد العدد الاخير اذا كان اكبر من خمسة يجبر ما بعدة وكمان مثال اخر للتوضيح 3.456 المفروض يكون 3.460 والا يكون صفر مثل 5.324 المفروض يكون 5.320 هل هناك دالة تعمل هذا ام ماذا

ارجوكم اريد الحل جزاكم الله كل خير

رابط هذا التعليق
شارك

الاخ الفاضل مهندس/ محمد طاهر

تحية واحترام وبعد

شكرا جزيى يا اخى .. لم احصل يا اخى على ما ابتغية فقد بحثت عن مواضيع التقلايب كلها بالمنتدى ولا توفى بالغرض فأنا اريد كمثال

3.568 بعد التقريب تصبح 3.570 6.542 بعد التقريب تصبح 6.540

اى جبر الرقم 5 وما بعده للرقم الثانى من اليمين بالزيادة طبعا كالمثال واذا كان الرقم الاول اقل من 5 فيكون الرقم الاول صفر

مثال اخر 65.255 تصبح 65.260 63.424 تصبح 65.420 98.568 تصبح 98.570

واكرر شكرى لحضرتك

رابط هذا التعليق
شارك

الاستاذ الفاضل / ابوهادى

جزاك الله كل خير

لقد عملت دالة تقوم بهذا العمل

Function mad(TY As Currency)

Dim UO As Currency

Dim uo1 As Currency

uo1 = Fix(TY * 100)

UO = Fix((TY - Fix(TY)) * 1000)

If Right(Str(UO), 1) < 5 Then

mad = uo1 / 100

Else

mad = uo1 / 100 + 0.01

End If

End Function

مع جعل الحقل ثابت وثلاثة ارقام عشرية وقد آتت بالمطلوب لك خالص شكرى وتقديرى لحضرتك وشكرا

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information