Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function СтавкаНалога(nalog As String, base As String, year As Integer) As Single
- If LCase(base) = "осн" Then
- If LCase(nalog) = "прибыль" Then
- СтавкаНалога = 20 / 100
- ElseIf LCase(nalog) = "имущество" Then
- СтавкаНалога = 2.2 / 100
- ElseIf LCase(nalog) = "ндс" Then
- СтавкаНалога = 18 / 100
- ElseIf LCase(nalog) = "страхование" Then
- СтавкаНалога = (22 + 2.9 + 5.1 + 0) / 100
- ElseIf LCase(nalog) = "ндфл" Then
- СтавкаНалога = 13 / 100
- Else
- СтавкаНалога = 10000000
- 'MsgBox "Неизвестный налог"
- End If
- ElseIf LCase(base) = "усн" Then
- If LCase(nalog) = "прибыль" Then
- СтавкаНалога = 0 / 100
- ElseIf LCase(nalog) = "имущество" Then
- СтавкаНалога = 0 / 100
- ElseIf LCase(nalog) = "ндс" Then
- СтавкаНалога = 0 / 100
- ElseIf LCase(nalog) = "страхование" Then
- СтавкаНалога = (20 + 0 + 0) / 100
- ElseIf LCase(nalog) = "ндфл" Then
- СтавкаНалога = 0 / 100
- ElseIf LCase(nalog) = "доходы" Then
- СтавкаНалога = 6 / 100
- ElseIf LCase(nalog) = "доходы-расходы" Then
- СтавкаНалога = 15 / 100
- Else
- СтавкаНалога = 10000000
- 'MsgBox "Неизвестный налог"
- End If
- ElseIf LCase(base) = "сколково" Then
- If LCase(nalog) = "прибыль" Then
- СтавкаНалога = 0 / 100
- ElseIf LCase(nalog) = "имущество" Then
- СтавкаНалога = 0 / 100
- ElseIf LCase(nalog) = "ндс" Then
- СтавкаНалога = 0 / 100
- ElseIf LCase(nalog) = "страхование" Then
- СтавкаНалога = 14 / 100
- ElseIf LCase(nalog) = "ндфл" Then
- СтавкаНалога = 13 / 100
- Else
- СтавкаНалога = 10000000
- 'MsgBox "Неизвестный налог"
- End If
- Else
- СтавкаНалога = 10000000
- 'MsgBox "Неизвестный тип налогообложения"
- End If
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement