Private Sub OptGod_Click()

Date: 2015-10-07; view: 441.

End Sub

End

Private Sub CmdExit_Click()

End Sub

End If

Else

End If

Else

End If

End If

Exit Sub

Beep

End If

Per = Val(TextPer.Text) ‘Сохранение в переменной Per значения Период

If TiE < Per Then ‘Проверка ограничений на входные данные

MsgBox "Время эксплуатации не может быть меньше Периода!", _

vbOKOnly, "Error"

Amort = SYD(Stoim, OStoim, TiE, Per) ‘Вычисление годовой амортизации

'за определенный период

TextAm.Text = Str(round(Amort,2)) ‘Отображение вычисленного значения амортиз-и

‘Проверка выбора свойств шрифта:

If ChB.Value = 0 Then

LabelSt.Font.Bold = False : LabelOst.Font.Bold = False

LabelT.Font.Bold = False : LabelPer.Font.Bold = False

LabelSt.Font.Bold = True : LabelOst.Font.Bold = True

LabelT.Font.Bold = True : LabelPer.Font.Bold = True

If ChI.Value = 0 Then

LabelSt.Font.Italic = False

LabelOst.Font.Italic = False

LabelT.Font.Italic = False

LabelPer.Font.Italic = False

LabelSt.Font.Italic = True

LabelOst.Font.Italic = True

LabelT.Font.Italic = True

LabelPer.Font.Italic = True

‘ Обработчик события кнопки «Выход»:

‘ Обработчик события переключателя «Аморт-я за определенный период»

LabelPer.Visible = True‘Включение видимости для элемента LabelPer

TextPer.Visible = True‘Включение видимости для элемента TextPer

If OptGod.Value = True Then OptLin.Value = False