procedure THIDateConvertor._work_doConvertXX;//DateLocalToDateUTC
var dl:double;
    hp:TTimeZoneInformation;  
begin
    GetTimeZoneInformation(hp);
    dl:= ReadReal(_Data,_data_Data,0);
    dtReal(Fresult,dl+(hp.bias/1440));
   _hi_CreateEvent(_Data,@_event_onResult, FResult);
end;

procedure THIDateConvertor._work_doConvertXX;//DateUTCtoDateLocal
var dl:double;
    hp:TTimeZoneInformation;  
begin
    GetTimeZoneInformation(hp);
    dl:= ReadReal(_Data,_data_Data,0);
    dtReal(Fresult,dl-(hp.bias/1440));
   _hi_CreateEvent(_Data,@_event_onResult, FResult);
end;