Алгоритм по формированию времени с помощью DateTimeToString

[WebSQLNeeder]

Прошу помочь с алгоритмом.

Задача - необходимо сформировать массив времен начиная от текущего времени необходимо получить время час назад, час вперед ... потом два часа назад, два часа вперед ... и так скажем на 100 или 1000 шагов ... У кого есть какие соображения как это реализовать?

[WebSQLNeeder]

Попробовал сделать что то типа DateTimeToString(st, 'h+1:n:s', Now());

Но это не дает эффекта. Может это вообще как то по другому реализовать можно без DateTimeToString ?

В идеале хотелось бы что то типа SmestitDateTime(5) - сместит время на 5 часов, или SmestitDateTime(-70) сместит на 70 часов назад ...

[WebSQLNeeder]

Вот сижу сейчас пробую написать алгоритм тупого анализа времени - то есть смещаем время на 1 час и начинаем анализ если время до 24 часов значит так и формируем время а если перешагнуло то нужно сместить еще и счетчик даты ... потом анализ даты по месяцам в 30 или 31 или 28 периодов ... потом анализ по месяцам в переполнении по 12 ... Короче уже замучался ...

Может у кого то есть рабочий алгоритм или вообще что посоветуете?

[alexBlack]

Это H часов вперед от даты ND. Назад аналогично

function incHour(ND:TDateTime; H:integer):TDateTime;
var D, M, Y, H1, M1, S1, MS:word;
    D1 : TDateTime;
begin
   DecodeDate(ND, Y, M, D);
   D1 := encodeDate(Y, M, D);
   DecodeTime(D, H1, M1, S1, MS);
   inc(H1, H);
   if H1 > 23 then begin
      D1 := D1 + H1 div 24;
      H1 := H1 mod 24;
   end;
   result := D1 + encodeTime(H1, M1, S1, MS);
end;

[Andrei]

Сообщение от WebSQLNeeder

Прошу помочь с алгоритмом.

Задача - необходимо сформировать массив времен начиная от текущего времени необходимо получить время час назад, час вперед ... потом два часа назад, два часа вперед ... и так скажем на 100 или 1000 шагов ... У кого есть какие соображения как это реализовать?

Стандартная функция IncHour из DateUtils вас не устроит? Или это слишком просто?