Hi, Thanx for your reply... But, first, i have to choose which is the earlier date by comparing because the date's are not fixed. It will be selected during the run time.
What i have to do is i have to compare the date in the webtable and whichever is earlier date, i have to select tat.. Let me know how it can be done.. Thanx, Arun. On Thu, Jan 22, 2009 at 6:19 PM, maddy <[email protected]> wrote: > > > Hi > Try out this , it may help you out of this issue > > > ' 1 st column 2ndcolumn 3 rd column > Employee StartDate EndDate > A 12-Jan-2008 30-Apr-2008 > B 12-Jan-2008 12-Apr-2008 > C 12-Jan-2008 01-Mar-2008 > D 12-Jan-2008 25-Feb-2008 > E 12-Jan-2008 01-Mar-2008 > > > ''' end date is 01-Mar-2008 > > > Set TabObj=Browser("Browser").Page("Page").WebTable("Table") > dattocompare=01-Mar-2008 > columnhavingdates=3 > checkboxcolum=1 > Call sellaestdate(TabObj,columnhavingdates,dattocompare,checkboxcolum) > Set TabObj=Nothing > > '################################################################### > Function sellaestdate > (TabObj,columnhavingdates,dattocompare,checkboxcolum) > > Rowcount=TabObj,RowCount > > For i=1 to Rowcount > > runtimecelldata=Trim(TabObj,GetCellData(i,columnhavingdates)) ' > returns date from application > retunval=DateDiff("d", dattocompare, runtimecelldata) > > If (retunval=0) Then > > Set chkBoxobj=TabObj.ChildItem > (i,checkboxcolum,"WebCheckBox".0) > chkBoxobj.set"ON" > Set chkBoxobj=Nothing > > End If > > Next > > > 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 -~----------~----~----~----~------~----~------~--~---
