How will that work if the array has 1 item (or 0 items)? On Jan 24, 5:56 am, Anoj Atapattu <[email protected]> wrote: > You can use this function to return the Max Value, Like wise you can update > the function to return Min Value. > > Function to Return Max Value in an Array > Public Function getArrMaxValueIndex(ByVal arr) > Dim ix, ixMax > ixMax = 0 > For ix = 1 To UBound(arr) > If ( arr(ixMax) < arr(ix) ) Then > ixMax = ix > End If > Next > getArrMaxValueIndex = ixMax > End Function > > 'Define array and index for max entry > Dim arr, ixMax > > 'Initialize the array > arr = Array(4, 1, 3, 6, 7, 23,567,34,44) > > 'Get the index of the max value > ixMax = getArrMaxValueIndex(arr) > > 'Print result > MsgBox "Max value: " & arr(ixMax) & " was found at " & ixMax & " index." > > Cheers, > > Anoj Atapattu > > > > > > > > On Mon, Jan 24, 2011 at 12:40 PM, ashok n <[email protected]> wrote: > > u have to go for any sorting orders then u can find out.. > > > if you are not clear let me know.. > > > i will update u the logic.. > > > Regards > > > Ashok.N > > CapGemini India Pvt Ltd > > > On Mon, Jan 24, 2011 at 12:18 PM, shalini reddy > > <[email protected]>wrote: > > >> i have an array values as a(2,6,4,7) > >> how can i find the max and min values ,,,, > > >> Regards > >> Shalini > > >> -- > >> 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]<MercuryQTP%2Bunsubscribe@googlegrou > >> ps.com> > >> For more options, visit this group at > >>http://groups.google.com/group/MercuryQTP?hl=en > > > -- > > Cheers, > > > Ashok Kumar.N > > +91 9711545679 > > > -- > > 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]<MercuryQTP%2Bunsubscribe@googlegrou > > ps.com> > > 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 "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
