変数が空であるかどうかを検査する
Function is_empty(s)
is_empty = false
If isArray(s) Then
If uBound(s) < 0 Then
is_empty = true
Exit Function
Else
Exit Function
End If
End If
If isObject(s) Then
If s.Count < 1 Then
is_empty = true
Exit Function
Else
Exit Function
End If
End If
If isEmpty(s) or isNull(s) Then is_empty = true
If s = empty Then is_empty = true
End Function
引数
s = mixed チェックする変数
戻り値
var が空でないか、0でない値であれば True を返します。
処理
・変数が空であるかどうかを検査する