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
-~----------~----~----~----~------~----~------~--~---
