dif=function(x,m,n){
  difftime(strptime(x,"%m/%d/%Y %H:%M")[m],strptime(x, "%m/%d/%Y %H:%M")[n],units ="hours")

}
i=j=1
J=matrix(0,500,1);J
for(j in 1:500){
for(i in 1:500){
   A=dif(d,i,1)
     if(as.numeric(A)==2)
     {
       J[i,1]=i
       break}
      else i=i+1
}
j=i
}
J