Gracias Shiryu_Libra,
Modifiqué la función y ahora no inserta la fecha, lo hice tal cual:
function formatoFecha(fecha)
dia=day(cdate(fecha))
mes=month(cdate(fecha))
anio=year(cdate(fecha))
formatoFecha=cdate(anio & "-" & mes & "-" & dia)
end function
