取得当前日期，以月/日/年格式显示

   这几天一直用QTP自带的飞机订票系统进行QTP实践练习，在订票时，首先需要输入订票日期，几天后，在进行回放时，订票日期总是显示有误，解决办法：

   Dim riqi

   取得系统当前日期，以月、日、年格式显示后2位

   riqi = Right("0"&month(date),2)&"/"&Right("0"&Day(date+1),2)&"/"&Right("0"&year(date),2)
   Window("Flight Reservation").WinObject("Date of Flight:").Type riqi