IsBin

Checks if the passed argument is a binary or not

CodeFunctionName
What is this?

Public

Tested

Imported
Function Isbin(value)
dim b, bb, i, j, s, values(1)
s = UCase(value)
values(0) = "0"
values(1) = "1"
bb = (Len(s) > 0)
for i = 1 to Len(s)
b = false
for j = 0 to 1
b = b or (Mid(s, i, 1) = values(j))
next
bb = bb and b
next
IsBin = bb
End Function

value

Views 4,416

Downloads 1,497

CodeID
DB ID

ANmarAmdeen
602
Revisions

v1.0

Tuesday
October
16
2018