Funzione conversione data

[wegawhite]

Ho trovato questa funzione con la ricerca:

Function dataShort(dtData) 
    dataShort = year(dtData&"/"&right("00"&month(dtData),2)&"/"&right("00"&day(dtData),2)) 
end Function 

data = dataShort(CDate(date()))
response.write data &"
"

Ma restituisce sempre:

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "10/09/2005/09/10"]'

/defaultuse/NewLogin.asp, line 46

Dove sbaglio???

[Mems]

Ma cosa dovrebbe fare questa funzione?

[wegawhite]

Originariamente inviato da Mems
Ma cosa dovrebbe fare questa funzione?

trasformare la data nel formato aaaa/mm/gg

[santino83]

concordo...ma che deve fare?

[santino83]

Function dataShort(dtData) 
  
dataShort=year(dtData) & "/" & month(dtData) & "/" & day(dtData)

end Function

[Mems]

<%
function convertDate(theDate)
if isDate(theDate) then
theYear = datePart("yyyy",theDate)
theMonth = datePart("m",theDate)
theDay = datePart("d",theDate)
if theMonth < 10 then theMonth = "0" & theMonth
if theDay < 10 then theDay = "0" & theDay
convertDate = theYear & "/" & theMonth & "/" & theDay
end if
end function

myDate = date()
response.write convertDate(myDate)
%>

[wegawhite]

grazie !