用vbscript脚本取excel中的日期，取出来是个整数，怎么处理

用vbscript脚本取excel中的日期，取出来是个整数，怎么办？
在一段script脚本中想从excel的某个单元格取出日期（如2009-03-01这种），但取出来以后好像成了个整数了，怎么办？

------解决方案--------------------------------------------------------
我测试一下，在EXCEL中输入一个日期，显示出来的也是日期，可能是你的EXCEl中的数值类型没有指定为日期型吧。解决的办法应该是在EXCL中或是script中转换数据类型。
 Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("book1.xls")
a =objWorkbook.sheets(1).cells(1,1).value
msgbox a

objExcel.Quit

------解决方案--------------------------------------------------------
不是，是从1899-12-31 00:00:00开始的。
------解决方案--------------------------------------------------------
试一下这个对不对:

Function GetDate(n)
GetDate = DateAdd("d", n, CDate("1899-12-31"))
End Function