日期格式转换,5/8/98转成1998-5-8,但5/8/03并不能转成2003-5-8,为什么,该怎么解决

日期格式转换,5/8/98转成1998-5-8,但5/8/03并不能转成2003-5-8,为什么
日期格式转换,5/8/98转成1998-5-8,但5/8/03并不能转成2003-5-8,为什么
请各位大侠,帮忙了.

------解决方案--------------------
function ParseDate(byval s as string) as date
dim a() as string
a = split(s, "/ ")
parsedate = dateserial(a(2),a(0),a(1))
end function