function time_difference,date1,time1,date2,time2

;	Calculates temporal difference between two dates.

t1=double(strmid(time1,0,2))+double(strmid(time1,3,2))/60+ $
	double(strmid(time1,6,10))/3600

t2=double(strmid(time2,0,2))+double(strmid(time2,3,2))/60+ $
	double(strmid(time2,6,10))/3600


d1=[strmid(date1,6,2),strmid(date1,3,2),strmid(date1,0,2),t1]
d2=[strmid(date2,6,2),strmid(date2,3,2),strmid(date2,0,2),t2]

d1(0,*) = d1(0,*)+2000*(d1(0,*) lt 50)
d2(0,*) = d2(0,*)+2000*(d2(0,*) lt 50)

juldate, d1, jd1
juldate, d2, jd2

return,(jd2-jd1)*24*3600
end