function [fichero,fecha,hora]=captura_de_video(tiempo,fechab,horab)
c='';                               %Camino de los vídeos
d='';                               %Directorio actual
ficheros=[];
horas=[];
fecha='';
fec=fechab;
horanumero=strcat(horab(1:2),horab(4:5),horab(7:8));
j=1;
%PRUEBA: Le voy a meter una base de hora para seleccionar el vídeo
tc=tiempo;
tm=str2double(horab(4:5));
th=str2double(horab(1:2));
ts=tm+tc;
while ts>=60
    ts=ts-60;
    th=th+1;
end
tm=ts;

t=str2double(horab(7:8))+100*tm+10000*th;

d=pwd;
c=strcat(d,'\pruebas\*.avi');
f=dir(c);
[n,m]=size(f);
for i=1:n
    ficheros=[ficheros;f(i).name];
    %los extremos que se usan corresponden a la hora de la creación del
    %vídeo
    horas=[horas;str2double(ficheros(i,12:17))];
        
end

%Debo seleccionar el fichero según una base de tiempo que tenga, es decir,
%entre dos vídeos se debe seleccionar el más cercano.
valor=0;
j=0;

while(valor<=t & j<=length(horas))
    j=j+1;
    valor=horas(j);
end
if j==1
    video=j;
else
    if(abs(horas(j-1)-t)<=abs(abs(valor-t)))
        video=j-1;
    else
        video=j;
    end
end

 
fichero=ficheros(video,:);
fecha=strcat(fichero(10:11),'/',fichero(8:9),'/',fichero(4:7));
hora=strcat(fichero(12:13),':',fichero(14),fichero(15),':',fichero(16),fichero(17),'''''');


