Dim date1,date2,yearnow,monthnow,daynow,week,time1,time2
date1= browser("管理系统软件").Page("管理系统软件").WebElement("2009年7月14日 星期二").ToString
time1=browser("管理系统软件").Page("系统软件").WebElement("11:05:45").ToString
msgbox time1
date2=year(date)&"年"&month(date)&"月"&day(date)&chr(32)&weekdayname(weekday(date))
time2=hour(time)&":"&minute(time)&":"&second(time)
If date1=date2 Then
msgbox "日期时间一致"
end if