Calc

Sep 21st, 2019
911
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. ;Блок 1
2. \$staj=InputBox("Здравствуйте","Введите стаж(полных лет)")
3. \$bud=InputBox(" ","Внесите общее количество смен В БУДНИЕ ДНИ")
4. \$sub=InputBox(" ","А теперь ТОЛЬКО ЗА СУББОТЫ")
5. \$vos=InputBox(" ","А теперь ТОЛЬКО ЗА Воскресенья")
6. ;Блок 2
7. \$g0=235.00*12
8. \$g1=246.75*12
9. \$g2=258.50*12
10. \$g3=270.25*12
11. \$g4=282.00*12
12. \$g5=293.75*12
13. \$g6=305.50*12
14. \$g7=317.25*12
15. \$g8=329.00*12
16. \$g9=340.75*12
17. ;Блок 3
18. \$gvs0=11*(235.00+23.5)
19. \$gvs1=11*(246.75+23.5)
20. \$gvs2=11*(258.50+23.5)
21. \$gvs3=11*(270.25+23.5)
22. \$gvs4=11*(282.00+23.5)
23. \$gvs5=11*(293.75+23.5)
24. \$gvs6=11*(305.50+23.5)
25. \$gvs7=11*(317.25+23.5)
26. \$gvs8=11*(329.00+23.5)
27. \$gvs9=11*(340.75+23.5)
28. ;Блок 4
29. \$gvv0=10*(235.00+23.5)
30. \$gvv1=10*(246.75+23.5)
31. \$gvv2=10*(258.50+23.5)
32. \$gvv3=10*(270.25+23.5)
33. \$gvv4=10*(282.00+23.5)
34. \$gvv5=10*(293.75+23.5)
35. \$gvv6=10*(305.50+23.5)
36. \$gvv7=10*(317.25+23.5)
37. \$gvv8=10*(329.00+23.5)
38. \$gvv9=10*(340.75+23.5)
39.
40.
41.
42. if \$staj = 0 Then
43.    \$st=(\$bud*\$g0)+(\$sub*\$gvs0)+(\$vos*\$gvv0)
44. ElseIf \$staj = 1 Then
45.    \$st=(\$bud*\$g1)+(\$sub*\$gvs1)+(\$vos*\$gvv1)
46. ElseIf \$staj = 2 Then
47.    \$st=(\$bud*\$g2)+(\$sub*\$gvs2)+(\$vos*\$gvv2)
48. ElseIf \$staj = 3 Then
49.    \$st=(\$bud*\$g3)+(\$sub*\$gvs3)+(\$vos*\$gvv3)
50. ElseIf \$staj = 4 Then
51.    \$st=(\$bud*\$g4)+(\$sub*\$gvs4)+(\$vos*\$gvv4)
52. ElseIf \$staj = 5 Then
53.    \$st=(\$bud*\$g5)+(\$sub*\$gvs5)+(\$vos*\$gvv5)
54. ElseIf \$staj = 6 Then
55.    \$st=(\$bud*\$g6)+(\$sub*\$gvs6)+(\$vos*\$gvv6)
56. ElseIf \$staj = 7 Then
57.    \$st=(\$bud*\$g7)+(\$sub*\$gvs7)+(\$vos*\$gvv7)
58. ElseIf \$staj = 8 Then
59.    \$st=(\$bud*\$g8)+(\$sub*\$gvs8)+(\$vos*\$gvv8)
60. ElseIf \$staj = 9 Then
61.    \$st=(\$bud*\$g9)+(\$sub*\$gvs9)+(\$vos*\$gvv9)
62.
63.    Else
64. MsgBox(48,"ВНИМАНИЕ!!!","Некорректный ввод в графу стаж. Попробуйт снова")
65. Exit
66. EndIf
67.
68. MsgBox(0,"Ваша ЗП",\$st)
RAW Paste Data