Как завершить программу (используя функцию end) с ненулевым кодом завершения? - VB

Формулировка задачи:

Вопрос наверное глупый, но я не специалист по vba Скажите как завершить программу (использую функцию end) с ненулевым кодом завершения

Решение задачи: «Как завершить программу (используя функцию end) с ненулевым кодом завершения?»

textual
                            Листинг программы 
                        

                            Sub Точка_входа()
    if 0 = Получить_День(День) then exit sub
    msgbox День
End Sub
 
Function Получить_День(День as long) as boolean
    if Нужно_выйти_раньше then Получить_День = false
    День = Day(Now())
    Получить_День = true
End Function
                        

Оцени полезность:

13 голосов , оценка 4.154 из 5

Похожие ответы