30.12.1899 5:40:42? это значение типа DateTime, дата 30.12.1899 это эквивалент нулевой даты, с этого значения начинается отсчет времени. При отображении дату можно просто отбросить, например если выводить значение в компонент Календарь, то можно выбрать свойство "Дата" -> "скрыть". Тогда будет отображаться только время наработки, т.е. 5:40:42. Аналогично если выводить это значение в отчет, то для ячейки можно задавать формат с отображением только времени.
Еще вопрос как получить ArchiveTimeOn за промежуток времени выбранный из календаря? Скрипт ругается на несоответствие типа данных
begin
{ вычислить время включенного состояния переменной "MyVariable" за период
от "cldBegin.AsDateTime" до "cldEnd.AsDateTime" и записать результат в переменную "MyVariableRes" }
ArchiveTimeOn(MyVariable, MyVariableRes, cldBegin.AsDateTime, cldEnd.AsDateTime);
end.
var
aSeconds: Int64;
begin
aSeconds := SecondsBetween(MyVariable.AsDateTime, 0); // получаем количество секунд из значения переменной MyVariable
Text1.Text := SecondsToStr(aSeconds); // выводим в компонент Text1 время
end.
var
aDT: TDateTime;
aSeconds: Int64;
begin
aDT := EncodeDateTime(1899, 12, 30, 5, 40, 42, 0); // записываем в aDT время "30.12.1899 5:40:42"
aSeconds := SecondsBetween(aDT, 0); // получаем время в секундах
Text1.Text := SecondsToStr(aSeconds); // выводим время в компонент Текст
end.