% Function CambioFecha(strFecha) Dim strFechaFin, strDia, strMes, strAnno strDia=day(strFecha) strMes=month(strFecha) strAnno=year(strFecha) strFechaFin=strDia & "/" & strMes & "/" & strAnno CambioFecha=strFechaFin End Function %>