{
Find midnight time by given time, ms
}
function GetMidnight(ms:Real):Real;
begin
 GetMidnight:=DateTime2Ms(Ms2Year(ms),Ms2Month(ms),Ms2Day(ms),0,0,0,0);
end;
