ValidIPv4Number                         (XINET)

Deklaration
Function ValidIPv4Number (ByVal sIPNumber As String) As Boolean

Beskrivning
Testar om en sträng innehåller ett giltigt IP-nummer enligt standarden Internet Protocol version 4 (IPv4). Ett giltigt IP-nummer enligt IPv4 är i formatet XXX.XXX.XXX.XXX där XXX måste ha ett värde mellan 0 och 255, tex "128.128.78.32".

Returvärden
Funktionen returnerar True om strängen innehåller ett giltigt IP-nummer eller False om numret inte är giltigt.
 
 
Exempel

Dim bResult As Boolean
bResult = ValidIPv4Number("128.128.111.222")  ' Returnerar True
bResult = ValidIPv4Number("300.128.111.222")  ' Returnerar False
bResult = ValidIPv4Number("128.128.111")      ' Returnerar False
    
 
 
  
SamLogic