Вычисление разницы времени

[raniel]

Добрый день!
Нужно получить разницу времени. Никак не выходит
max, min, Result тип Time

TimeV тип Variant

TimeV := max - min;
EVALUATE(Result,FORMAT(TimeV)); Так не отрабатывате
Result := VARIANT2TIME(TimeV); так тоже
EVALUATE(Result,FORMAT(max - min)); это тоже не работает
Result := VARIANT2TIME(max - min);

Ругается что не может перевести.... типа не коректное число.
max однозначно больше min
Max < 24 часов
Заранее спасибо!

[Cheb]

Не понимаю, зачем так сложно

Может быть, так лучше:

max, min тип Time
Result тип Integer, либо Duration
Result := max - min;

[Kadawrik]

Цитата:

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

Не понимаю, зачем так сложно

Может быть, так лучше:

max, min тип Time
Result тип Integer, либо Duration
Result := max - min;

Смею предположить, что ТС хочет видеть разницу не в миллисекундах, а в формате ЧЧ:ММ:СС

[Cheb]

Тогда так:

Result тип Time
Result := 000000T + (max - min)

[Kadawrik]

Цитата:

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

Тогда так:

Result тип Time
Result := 000000T + (max - min)

Я так пробовала, с той лишь разницей, что перед буквой Т только один ноль рисовала. В таком варианте не прокатило. Не подскажете, почему?
0T и 000000T - это разве не одно и то же "нулевое" время должно быть?

[Cheb]

Цитата:

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

Я так пробовала, с той лишь разницей, что перед буквой Т только один ноль рисовала. В таком варианте не прокатило. Не подскажете, почему?
0T и 000000T - это разве не одно и то же "нулевое" время должно быть?

000000T - это нулевое время "0:00:00", а 0T - неопределенное.

[Kadawrik]

Цитата:

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

000000T - это нулевое время "0:00:00", а 0T - неопределенное.

Спасибо. Будем знать!

[raniel]

Спасибо Result := 000000T + (max - min) помогло!

[Alex Che]

Цитата:

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

000000T - это нулевое время "0:00:00", а 0T - неопределенное.

У меня работает даже с двумя нулями: 00T.