عرض مشاركة واحدة
  #3  
قديم 12-05-2010, 02:10 PM
سيف سالم سيف سالم غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Jul 2008
العمر: 57
المشاركات: 4,642
معدل تقييم المستوى: 21
سيف سالم is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة الامورة بنان مشاهدة المشاركة


dim hourworked ,salary ,overtime as decimal

hourworked =val(textbox1.text)

if hourworked >40 then

overtime = 10.25* (hourworked -40

salary =40 * 6,5+ overtime

else

salary =5 * hourworked


end if

msgbox (salary

وممكن
نعكسها تبقا

dim hourworked ,salary ,overtime as decimal

hourworked =val(textbox1.text)

if hourworked <= 40 then

salary =5 * hourworked

else

overtime =10.25 *(hourworked -40)

salary =6.5*40 +overtime

end if

msgbox (salary



انشاء الله تكون صح

وشكرا

شكرا جزيلا
وبارك الله لكم

تم اضافة بعض التعديلات