'
' Процедура главная :: начало
'
Sub berger2023()
'
' Расчет Коэффициента Бергера для определения мест и премий
' Автор: wpvi.ru
' Находится здесь: https://wpvi.ru/fs/soft/excel/berger2023_ver101.txt
' Используется здесь: https://wpvi.ru/pages/soft/excel/
' Версия 1.01 от 20230105
'
  Quest1 = "Добрый день, " & Application.UserName & " !" & Chr(13) & "Вы действительно хотите запустить расчет Коэффициента Бергера для определения мест и премий?"
  Ans1 = MsgBox(Quest1, vbYesNo)
  If Ans1 = vbYes Then
    ' Запуск расчета
    rez1 = make_berger()
  Else
    ' Отказ от запуска расчета
    rez1 = decline_berger()
  End If
  Exit Sub
End Sub

'
' Процедура главная :: завершение
'

Public Function decline_berger() As Boolean
  MsgBox "Вы отказались от расчета!"
  task_done = False
  Exit Function
End Function

Public Function make_berger() As Boolean
  MsgBox "Вы согласились провести расчет!"
  task_done = True
  Exit Function
End Function