السلام عليكم
لقد أرفقت الكود بمشروع بسيط للتوضيح مع الشكر
تم تعديل هذه المشاركة بواسطة HnHn في 22 مارس 2007 في 18:37
أين الغلط في هذا الكود رقمين بعد الفاصلة بدون تقريب
مغلق
الأخ الفاضل ...
الخطأ فى الكود هو التالى:
عند أستخدامك c = e - b فالناتج كان 6.70000000000002E-02 إى 6.70000000000002 * 10^-2 إى 0.0670000000000002 لذا عند استخدامك (d = Left(c, 4 فأنت حصلت على أول 4 رموز من 6.70000000000002E-02 وهى 6.70 وبالطبع كققمة مختلفه تماماً عن 0.067
يمكنك ببساطة أستخدام
Text2.Text = Int(Val(Text1.Text) * 6) / 100
أتمنى أن يكون هذا ما تريد
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
شكرا لك احي الكريم و بارك الله بك
تمام بارك الله فيك هكدا اضن
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
هذا الموضوع مغلق.