Right Click Disabled

Wednesday, February 22, 2012

VBScript code to display gross salary of an employee


Here, Gross Salary is equal to basic salary plus commission. If basic salary >=15000 then commission is 10% of basic salary. If basic salary <15000 and >=8000 then commission is 5% of basic salary. If basic salary <8000 then commission is 100/-

Option explicit
Dim gross, basic, comm
basic=inputbox("Enter Basic salary of an Employee :")
If basic>=15000 Then
   comm=basic*10/100
   elseif basic<15000 and basic>=8000 Then
       comm=basic*5/100
       else
          comm=100
End If
gross=basic+comm
msgbox("Gross salary of Employee is :"&gross)

No comments:

Post a Comment

Twitter Bird Gadget