PROGRAM
Dim hra, da, pf, gp, np, basic As Double
Private Sub Command1_Click()
basic = txtbasic.Text
If (basic > 1000) And (basic <= 3000) Then
hra = basic * 0.05
da = basic * 0.02
pf = basic * 0.05
gp = Val(txtbasic.Text) + Val(txthra.Text) + Val(txtda.Text)
np = Val(txtgp.Text) + Val(Txtpf.Text)
ElseIf (basic > 3000) And (basic <= 5000) Then
hra = basic * 0.06
da = basic * 0.03
pf = basic * 0.06
gp = Val(txtbasic.Text) + Val(txthra.Text) + Val(txtda.Text)
'np = Val(gp) - Val(pf)
np = Val(txtgp.Text) + Val(Txtpf.Text)
Else
hra = basic * 0.07
da = basic * 0.08
pf = basic * 0.09
gp = Val(txtbasic.Text) + Val(txthra.Text) + Val(txtda.Text)
'np = Val(gp) - Val(pf)
np = Val(txtgp.Text) + Val(Txtpf.Text)
End If
txthra.Text = hra
txtda.Text = da
Txtpf.Text = pf
txtgp.Text = gp
txtnp.Text = np
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
basic = txtbasic.Text
If (basic > 1000) And (basic <= 3000) Then
hra = basic * 0.06
da = basic * 0.03
pf = basic * 0.06
gp = Val(txtbasic.Text) + Val(txthra.Text) + Val(txtda.Text)
np = Val(txtgp.Text) + Val(Txtpf.Text)
Else
hra = basic * 0.07
da = basic * 0.08
pf = basic * 0.09
gp = Val(txtbasic.Text) + Val(txthra.Text) + Val(txtda.Text)
'np = Val(gp) - Val(pf)
np = Val(txtgp.Text) + Val(Txtpf.Text)
End If
txthra.Text = hra
txtda.Text = da
Txtpf.Text = pf
txtgp.Text = gp
txtnp.Text = np
End Sub
0 Comment "EMPLOYEE PAYROLL PROCESSING USING VISUAL BASIC"
Post a Comment