منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف احصل على زيادة الحمولة بهذا المثال

ارفق مثال بسوالي عن كيفية استخراج زيادة الحمولة للاليات
ادا كانت الزيادة نصف طن فما فوق تحسب طن كامل

رياضيات يعني ...يا ريت اجد لها حل

المثال المرفق ..اسف كان لازم ارفقتة من اول

اذا كانت الحمولة الان اقل من الحمولة الفعلية للقلاب تكون زيادة الحمولة = 0 صفر

حط تكست 4 و ليكن مخفي

كود :

If Text2.Text < Text1.Text Then Text3.Text = 0

If Text2.Text > Text1.Text Then Text3.Text = Val(Text2.Text) - Val(Text1.Text)

c = Len(Text3.Text)

Text4.Text = Split(Text3.Text, ".")(1)

a = Left(Text4.Text, 1)

b = Len(Text4.Text) + 1

bb = c - b

If a > 4 Then Text3.Text = Split(Text3.Text, ".")(0) + 1

If a < 4 Or a = 4 Then Text3.Text = Left(Text3.Text, bb)

طبعا جربته و يعمل

شكرا اخي العزيز هناااك رسالة خطا

subsecrpit out of rang

????

تفضل أخي التعديل

اتمنا الإستفادة للجميع

استاذ تركي

يعني كود خطير جدا و كلمتين خلت الموضوع ما شاء الله تبارك الله

الله يحميك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

princeofislam

asto

princeofislam

تركي الحلواني

princeofislam