Parent page: Service Functions – Math (QTP, VBScript)

Check whether an array consists of numeric values

Public Function isArrayNumeric(ByVal dvArray)
  Dim Iter
  If Not isArray(dvArray) Then
    isArrayNumeric = False
    Exit Function
  End If
  If UBound(dvArray) = -1 Then
    isArrayNumeric = False
    Exit Function
  End If
  For Iter=0 To UBound(dvArray)
    If Not isNumeric(dvArray(Iter)) Then
      isArrayNumeric = False
      Exit Function
    End If
  Next
  isArrayNumeric = True
End Function

Check whether an array consists of date/time values

Public Function isArrayDate(ByVal dvArray)
  Dim Iter
  If Not isArray(dvArray) Then
    isArrayDate = False
    Exit Function
  End If
  If UBound(dvArray) = -1 Then
    isArrayDate = False
    Exit Function
  End If
  For Iter=0 To UBound(dvArray)
    If Not isDate(dvArray(Iter)) Then
      isArrayDate = False
      Exit Function
    End If
  Next
  isArrayDate = True
End Function