Dim hra, da As Single
Dim basic, gross, intax, ann, net As Single
Private Sub Command1_Click()
basic = Val(Text3.Text)
If (basic <= 5000) Then
hra = basic * 0.1
da = basic * 0.12
Text4.Text = hra
Text5.Text = da
gross = basic + hra + da
Text6.Text = gross
ann = gross * 12
Text7.Text = ann
ElseIf (basic >= 5000) And (basic <= 8000) Then
hra = basic * 0.12
da = basic * 0.15
Text3.Text = hra
Text5.Text = da
gross = basic + hra + da
Text6.Text = gross
ann = gross * 12
Text7.Text = ann
Else
hra = basic * 0.12
da = basic * 0.15
Text4.Text = hra
Text5.Text = da
gross = basic + hra + da
Text6.Text = gross
ann = gross * 12
Text7.Text = ann
End If
End Sub
Private Sub Command2_Click()
If ann <= 50000 Then
intax = 0
Text8.Text = intax
ElseIf ann >= 50001 And ann <= 60000 Then
intax = ann * 0.1
Text8.Text = intax
ElseIf ann >= 60001 And ann <= 150000 Then
intax = ann * 0.2
Text8.Text = intax
Else
intax = ann * 0.3
Text8.Text = intax
End If
End Sub
Private Sub Command3_Click()
net = ann - intax
Text9.Text = net
End Sub
Private Sub Command4_Click()
End
End Sub