Function GetDate(s)

GetDate=""

dim y,m,d

y=year(s)

m=month(s)

d=day(s)

if m<10 then m="0"&m

if d<10 then d="0"&d

GetDate=y&m&d

End Function