R commands:

ct <- strptime(complete.time,"%Y-%m-%d %H:%M:%OS")
rt <- strptime(request.time,"%Y-%m-%d %H:%M:%OS")
1000*209715200*8/(as.numeric(max(ct)-min(rt))*60)/1024/1024