Browser("KOA知识办公自动化系统").Page("KOA知识办公自动化系统").Frame("rightFrm").WebElement("Element_今天").Click
If Iyear=iyear and Imonth=imonth Then
Browser("KOA知识办公自动化系统").Page("KOA知识办公自动化系统").Frame("rightFrm").WebElement("Element_今天").Click
End If
If Iyear > iyear Then
For i = 1 to Iyear-iyear
Browser("KOA知识办公自动化系统").Page("KOA知识办公自动化系统").Frame("rightFrm").WebElement("Element_下一年").Click
Next
else
For i = 1 to iyear-Iyear
Browser("KOA知识办公自动化系统").Page("KOA知识办公自动化系统").Frame("rightFrm").WebElement("Element_上一年").Click
Next
End If
If Imonth > imonth Then
For i = 1 to Imonth-imonth
Browser("KOA知识办公自动化系统").Page("KOA知识办公自动化系统").Frame("rightFrm").WebElement("Element_下一月").Click
Next
else
For i = 1 to imonth-Imonth
Browser("KOA知识办公自动化系统").Page("KOA知识办公自动化系统").Frame("rightFrm").WebElement("Element_上一月").Click
Next
End If