Как отформатировать значение времени в формате ЧЧ: ММ: СС в метке данных

Итак, у меня есть столбчатая диаграмма в отчетах Crystal. На этом графике у меня есть метка данных, прикрепленная к каждому из графиков, которая отображает значение графика в секундах, которое выглядит так: enter image description here Я бы хотел отформатировать эта метка данных в формат времени. Таким образом, для каждого столбца на графике метка данных будет отображаться в следующем формате:

ЧЧ: ММ: СС.

Я могу получить форматирование времени, используя следующую формулу:

local NumberVar Sec;
local NumberVar ss;
local NumberVar mm;
local NumberVar hh;
local StringVar SSS;
local StringVar MMM;

Sec := Sum ({GetAlarmSummaryDataSet2Response/GetAlarmSummaryDataSet2Result/Items/AlarmSummaryItem2.StopTime}, {GetAlarmSummaryDataSet2Response/GetAlarmSummaryDataSet2Result/Items/AlarmSummaryItem2.Section}) ;
hh := Int (Sec/3600);
mm :=Int ((Sec/60)- (60* Int(Sec/3600 )));
If mm<10 then MMM := "0" & ToText (mm,0);
If mm>9 Then MMM := ToText(mm,0) ;

ss :=Sec-(3600 * hh ) - (60 * mm ) ;
If ss<10 then SSS := "0" & ToText (ss,0);
If ss>9 Then SSS := ToText(ss,0) ;

ToText ( hh,0) & ":" & MMM & ":" & SSS

Но я не уверен в том, как реализовать эту формулу в метке данных.

Приветствуем любую помощь или предложения.

Спасибо

6
задан James213 9 November 2012 в 18:42
поделиться