Округление Duration

[mira]

Всем добрый день!

На форме Итого время (длительность как разница двух Time) считается до миллисекунд.
Во-первых, не помещается, во-вторых, не надо так точно.

Например,
3 часы 31 минуты 17 секунды 647 миллисекунды

Какие есть способы округлить? Кроме как простенько поделить и вычленить?

Спасибо!

[Sancho]

на контроле формат настроить пробовали?

[mira]

Sancho, говорили мне, что как-то в свойствах можно настроить формат Duration.
Но как - посмотрели, не ясно.

[DA_NEAL]

Заведите переменную Duration или сделайте функцию которая возвращает Duration
ROUND(DT2-DT1,1000)
Заодно перед вычислением проверите что переменные инициализированы, а то бывает неприятно когда страница не откроется из за того что переменные в формуле не заданы.

[mira]

DA_NEAL, да, спасибо! Отлично получилось.
Точность вынесла в настройки и пока 10000.

[mira]

Заказчик захотел формат "чч:мм"
Причем, из данных регистрируемого времени происходит не только отображение в формах Нава, но и в отчетах sql.
Чтобы у нас с разработчиком sql время было одинаково и\ или ему не пришлось округлять, сделала так :

в полях таблицы вот так
Time Begin - OnValidate()
g_txt_Time1 :=FORMAT(TIME, 5, '<Hours24>.<Minutes,2>');
IF EVALUATE(g_tm_Time1, g_txt_Time1) THEN
"Time Begin" := g_tm_Time1

IF ("Time Begin" <> 0T) AND ("Time End" <> 0T) THEN BEGIN
Duration := "Time End" - "Time Begin";

И Duration у меня почему-то стал целые минуты. Хотя, я готова была еще и здесь отрезать секунды.

[Sancho]

"Time Begin":= DT2TIME(ROUNDDATETIME(CURRENTDATETIME(), 1000*60))

[mira]

Sancho, спасибо!

Заменила свой код вашим. Время округляется как надо.