Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - База Знаний: Округление времени до 5 мин
function RoundTime5(aTime: TTime): TTime;
var h, m, s, ms, mInt: Word;
begin
decodeTime(time, h, m, s, ms);
mInt := strtoint(copy(inttostr(m), length(inttostr(m)) - 1, 1));
case mInt of
0,5:;
1, 2: m := m - mInt;
3, 4: m := m + (5 - mInt);
6, 7: m := m - (mInt - 5);
8, 9: m := m + (10 - mInt);
end;
result := encodeTime(h, m, 0, 0);
end;
