Народ, подскажите короткий алгоритм округления времени до часа в:

14.09.2015 08:03:44
14.09.2015 08:23:33
14.09.2015 19:22:11

спасибо

прибавить 59 минут и 59 сек.. поссле вычесть колво минут и секунд...

а точнее?

наприемр :
Дат = ТекущаяДата();
Дат=Дат+59*61;
Дат = Дат - секунда(Дат)-Минута(Дат);

Формат(НужнаяДата,"ДФ='dd.MM.yyyy ЧЧ:мм'")

Еще ))
Дат = НачалоДня(Дат) + Час(Дат)*60*60 + Минута(Дат)*60

(0)
НачалоЧаса(Д+1800)

(6) начало часа- Д - это что?

(7) очевидно, дата, округленная до целого часа в меньшую сторону. Если тебе надо в большую, то прибавляешь 60 минут по 60 секунд итого 1800.

только более правильно НачалоЧаса (Д) + 1800. Имхо.

(7) Д - твоя дата
НачалоЧаса() - платформенная функция

(9) менее

(11) в случае если в дате уже круглый час, ваш вариант, мне кажется, даст на выходе час + 1, а надо бы оставить час без изменений. Хотя может я и не прав

(3) поделие не работает

(13) см (6)-(12)

самое правильное НачалоЧаса(Стр1.Дата)

всем спасибо

(15) если в меньшую сторону, то да

(12) 1800 это 30 минут

(16) ну если в большую - прибавляю 60*60

(13) Дат = Дат - секунда(Дат)-Минута(Дат)*60;

(17) Точно, перемножил неправильно