function ddt = convertExcelDateTime(dt)
% Find the year
yr = 1900
leapyr = 0
if(dt > 31+29) % 1990 was not a leap year, though Excel thinks it is.
dt = dt - 1
end
while dt > 0
if(mod(yr,4) == 0)
if(mod(yr,100) == 0)
if(mod(yr,400) == 0)
dt = dt - 366
leapyr = 1
else
dt = dt - 365
leapyr = 0
end
else
dt = dt - 366
leapyr = 1
end
else
dt = dt - 365
leapyr = 0
end
yr = yr + 1
end
yr = yr - 1
dt = dt + 365
% Find the month
mnd = [31 28 31 30 31 30 31 31 30 31 30 31];
if(leapyr == 1)
mnd(2) = 29;
dt = dt + 1
end
mn = 1
while dt > 0
dt = dt - mnd(mn)
mn = mn + 1
end
mn = mn - 1
dt = dt + mnd(mn)
% Find the day, hour, minute, and second
dy = floor(dt)
tm = (dt - dy)*24
hr = floor(tm)
tm = (tm - hr)*60
min = floor(tm)
sec = floor((tm - min)*60)
ddt = yr*100.^2 + mn*100 + dy + hr/100+ min/100.^2 + sec/100.^3;
end