#pas
procedure THIDatePicker._var_DateInt;
var   dt: TDateTime;
      st: TSystemTime;
begin
   Control.Perform(DTM_GETSYSTEMTIME,0,Longint(@st));
   SystemTime2DateTime(st,dt);
   dtInteger(_Data, trunc(dt));
end;