Как создать бланк ежемесячного удержания сотрудника кредит в VB
я пытаюсь создать ежемесячный фиксированный вычет по кредиту сотрудника в vb.net это то, что я пробовал, но это не работает.
Что я уже пробовал:
Private Sub monthtx_TextChanged(sender As Object, e As EventArgs) Handles monthtx.TextChanged Dim datetimepicker1 As Date Dim monthtx As Integer datetimepicker1 = Date.Now monthtx = Month(datetimepicker1) If monthtx = 1 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 2 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 3 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 4 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 5 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 6 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 7 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 8 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 9 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 10 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 11 Then balanc.Text = deductx.Text - basicsal.Text ElseIf monthtx = 12 Then balanc.Text = deductx.Text - basicsal.Text End If End Sub
Karthik_Mahalingam
одно и то же выражение в каждом состоянии, почему? :(