السلام عليكم
انا عايز اقرب الفلوس علشان الأرباح ما يحصلش خسائر
بالطبع اي حد بيروح مثلا علشان يصور عدد من الورق ويطلع مثلا الحساب 1.12 طبعا احنا بندفع 1.10 بس
لكن البرنامج هايكتبها 1.12 ويبدأ يجمعها على الأرباح الأخرى
وفي النهايا سوف يطلع فلوس في البرنامج ليست مساوية للفلوس اللي معانا في اليد
حد فاهمني
انا اريد وبكل بساطة ان اقرب هذه الفلوس وعلى سبيل المثال
1.93 الى 1.95
0.16 الى 0.15
5.34 الى 5.35
وهاكذا ............
ياريت الرد لو سمحتم وعدم التجاهل
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
لماذا لا تجرب الطريقة
Dim La, Na, Ma, Oa Na = Val(Text1.Text) La = Right(Na, 1) If La <= 9 And La >= 7 Then Oa = Mid(Na, Len(Na) - 1, 1) Ma = Mid(Na, 1, Len(Na) - 2) & (Oa + 1) & "0" ElseIf La <= 6 And La >= 3 Then Oa = Right(Na, 1) Ma = Mid(Na, 1, Len(Na) - 1) & "5" ElseIf La <= 2 And La >= 0 Then Ma = Mid(Na, 1, Len(Na) - 1) + "0" End If msgbox Ma
شكرا لك اخي الفريد على إهتمامك بالموضوع
وجاري التجربة
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
العفو يا غالي
السلام عليكم
انا جربت الكود واشتغل كويس
بس مش بيفضل شغال كتيير
بمعنى انه تظهر رسالة خطأ عندما ازود في الفلوس
انا وضعط هذه الكود في حدث التغير لمربع نصي
ويوجد مربع نصي اخر مكتوب فيه السعر
ويوجد عنوان label يظهر فيه الثمن النهائي بعد التقريب
انظر هذا النموذج الصغير المرفق مع المشاركة وجربه
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
انا انتظرك يا اخ الفريد
.........................
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
اين انت يا اخي الفريد
اكتبلي اي حاجة تدل على انك متابع الموضوع
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
جرب الكود
a=format(round(a,2),"#0.00")
حيث a الرقم المراد تقريبة
كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر
ممكن توضيح للكود
الرقم اللي مراد تقريبه سوف يكون في متغير X مثلا
فاين اضع المتغير X في هذا الكود
وشكرا
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
هذا الموضوع مغلق.