Учеба и наука

• Всего ответов: 1


Виталий
2-й в Технологиях
4.9 119 отзывов
Function fPremia(stazh As Integer, volume As Long) As Double

If (stazh < 2) And (volume > 80000) Then
 fPremia = 1.5
ElseIf (stazh >= 2) And (stazh <= 5) And (volume > 100000) Then
 fPremia = 5
ElseIf (stazh > 5) And (volume > 100000) Then
 fPremia = 7
Else
 fPremia = 1
 
End If

MsgBox («Стаж: » & stazh & " объем: " & volume & ": " & fPremia & "%")

End Function

И проверка функции (как вариант):
Sub test()
Dim f As Double
f = fPremia(1, 1)
f = fPremia(1, 90000)
f = fPremia(2, 1)
f = fPremia(2, 90000)
f = fPremia(2, 110000)
f = fPremia(3, 50000)
f = fPremia(3, 150000)
f = fPremia(4, 50000)
f = fPremia(4, 150000)
f = fPremia(6, 50000)
f = fPremia(6, 150000)
f = fPremia(8, 50000)
f = fPremia(8, 150000)
End Sub

«» замените на "
ноябрь 16, 2015 г.