Funzione che non riesco a far funzionare :P

[saucer]

function formatMySQLdate(data)

	Dim mese
	Dim anno
	Dim giorno

	mese = month(data)
	anno = year(data)
	giorno = day(data)

	strDate = anno & "-" & mese & "-" & giorno

'Ritorna il valore
formatMySQLdate = strDate

end Function

Cosi dovrebbe andare