📅  最后修改于: 2022-03-11 14:51:56.247000             🧑  作者: Mango
' Test will pause execution on false assert only on debug mode
#Const DebugMode = True
Sub TestMe()
Dim iVar As Integer
iVar = -1
#If DebugMode Then
Debug.Assert iVar >= 0 ' False -> Pause
MsgBox "Debug Mode", vbExclamation
#Else
MsgBox "Production Mode", vbInformation
#End If
End Sub