Dim datD As Date, strD As StringstrD = 05jan05 datD = CDate(Left(strD,2) & "-" & Mid(strD,3,3) & "-" & Right(strD,2))
strtemp="05jan05" a=mid(strtemp,1,2) b=mid(strtemp,3,3) c=mid(strtemp,6,2) if b="jan" then b="1" datestr = a & b & c dim newdate as Date new date=date(datastr)
datD = CDate(Left(strD,2) & "-" & Mid(strD,3,3) & "-" & Right(strD,2))
a=mid(strtemp,1,2)
b=mid(strtemp,3,3)
c=mid(strtemp,6,2)
if b="jan" then b="1"
datestr = a & b & c
dim newdate as Date
new date=date(datastr)