[hadeel]

اخي السيد الغالي ارجو المساعده ان امكن
If Val(Text3.Text) >= 50 And Val(Text3.Text) <= 59 Then
Text3.Text = 50
Text57.Text = Val(Text3.Text) * Val(Text6.Text)
ElseIf Val(Text3.Text) >= 60 And Val(Text3.Text) <= 100 Then
Text3.Text = Val(Text3.Text) - 10
Text57.Text = Val(Text3.Text) * Val(Text6.Text)
End If
انا حطيت هذا الكود بخصوص نقصان العشر درجات المروض اني اذا ادخل درجه 50 الى 59 تتصير 50 اذا اعلى 60 فما فوق تنقص عادي عشر درجات لكن المشكله في هذا الكود انو اي درجه جاي ادخله تصير 50 حتلو كانت اكبر من 60
اتمنى الرد باسرع وقت