procedure THIDateConvertor._work_doConvert9;//DateRealToStrFmt
begin
DateTime:= ReadReal(_Data,_data_Data,0);
if DateTime < 584389 then DateTime:= DateTime+584389;
...............................
begin
DateTime:= ReadReal(_Data,_data_Data,0);
if DateTime < 584389 then DateTime:= DateTime+584389;
...............................
после этой переделки считает разницу без проблем.
Поиск
Друзья
Администрация