IDEで実行中か判定する

IDEで実行中か判定する関数を作ってみました。IsDebug関数は、IDEで実行中のときはTrueを、exeに固めたときはFalseを返します。

直感的だけど関数が二つに分かれるのと、

Public Function IsDebug() As Boolean
    Dim b As Boolean
    Debug.Assert IsDebug_(b)
    IsDebug = b
End Function

Private Function IsDebug_(b As Boolean) As Boolean
    b = True
    IsDebug_ = b
End Function

直感的じゃないけど関数が一つの。

Public Function IsDebug(Optional b = True) As Boolean
    b = Not b
    If Not b Then Debug.Assert IsDebug(b)
    IsDebug = b
End Function