Visual Basic. Практика. Ищенко В.А - 44 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

44
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or
Text4.Text = ""
Then
MsgBox "Нет данных для расчета", vbExclamation, "Амортиза-
ция”
Text1.SetFocus
Exit Sub
End If
dblПервичнаяСтоимость = CDbl(Text1.Text)
dblОстаточнаяСтоимость = CDbl(Text2.Text)
intВремяАмортизации = CInt(Text3.Text)
intПериодРасчета = CInt(Text4.Text)
If dblПервичнаяСтоимость < dblОстаточнаяСтоимость Then
MsgBox "ОШИБКА! Остаток больше начальной стоимости", _
vbExclamation, "Амортизация"
Text1.SetFocus
Exit Sub
End If
If intВремяАмортизации < intПериодРасчета Then
MsgBox "Ошибка в сроке амортизации!", vbExclamation,_
"Амортизация"
Text3.SetFocus
Exit Sub
End If
If Option1.Value = True Then
blnПризнак = True
Else
blnПризнак = False
End If
If blnПризнак = True Then
dblВеличинаАмортизации = SYD(dblПервичнаяСтоимость , _
dblОстаточнаяСтоимость , intВремяАмортизации, intПериодРасчета)
Else
If Text6.Text = "" Then
MsgBox "Нет данных для кратности", vbExclamation, "Амортиза-
ция"
Text6.SetFocus
Exit Sub
End If
IntКратность = CInt(Text6.Text)
dblВеличинаАмортизации = DDB(dblПервичнаяСтоимость , _
dblОстаточнаяСтоимость , intВремяАмортизации, intПериодРасчета,
IntКратность )
End If
Text5.Text = CStr(dblВеличинаАмортизации) 
                                     44
   If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or
   Text4.Text = ""
      Then
      MsgBox "Н ет данны х для рас ч ета", vbExclamation, "Ам ортиза-
      ция”
      Text1.SetFocus
Exit Sub
End If
dblП ервич наяС тоим ос ть = CDbl(Text1.Text)
dblО с таточ наяС тоим ос ть = CDbl(Text2.Text)
intВ рем яАм ортизации = CInt(Text3.Text)
intП ериодР ас ч ета= CInt(Text4.Text)
If dblП ервич наяС тоим ос ть < dblО с таточ наяС тоим ос ть Then
      MsgBox "О Ш И Б К А! О с таток боль ш енач аль ной с тоим ос ти", _
      vbExclamation, "Ам ортизация"
      Text1.SetFocus
Exit Sub
End If
If intВ рем яАм ортизации < intП ериодР ас ч етаThen
      MsgBox "О ш ибкав с рокеам ортизации!", vbExclamation,_
      "Ам ортизация"
      Text3.SetFocus
Exit Sub
End If
If Option1.Value = True Then
      blnП ризнак = True
     Else
     blnП ризнак = False
End If
If blnП ризнак = True Then
  dblВ елич инаАм ортизации = SYD(dblП ервич наяС тоим ос ть , _
  dblО с таточ наяС тоим ость , intВ рем яАм ортизации, intП ериодР ас ч ета)
  Else
If Text6.Text = "" Then
   MsgBox "Н ет данны х для кратнос ти", vbExclamation, "Ам ортиза-
ция"
   Text6.SetFocus
Exit Sub
End If
IntК ратнос ть = CInt(Text6.Text)
dblВ елич инаАм ортизации = DDB(dblП ервич наяС тоим ос ть , _
dblО с таточ наяС тоим ос ть , intВ рем яАм ортизации, intП ериодР ас ч ета,
IntК ратнос ть )
End If
Text5.Text = CStr(dblВ елич инаАм ортизации)

Страницы