Function fn_ValidateArrayOrder(arrInput, strOrderType)
Dim blnFlag, i
blnFlag = False
Select Case UCase(strOrdertype)
Case "ASCENDING"
For i = 0 to Ubound(arrCRAAcntNos)-1
If StrComp(arrInput(i), arrInput(i+1), 1) = -1 Then
blnFlag = True
End If
Next
Case "DESCEDING"
For i = 0 to Ubound(arrCRAAcntNos)-1
If StrComp(arrInput(i), arrInput(i+1), 1) = 1 Then
blnFlag = True
End If
Next
End Select
If blnFlag Then
fn_ValidateArrayOrder = blnFlag
End If
End Function
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
