SHARE
TWEET

Calc

Grinya90 Sep 21st, 2019 (edited) 272 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top