اذهب الي المحتوي
أوفيسنا

اقتران قطع الرقم 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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information