Для свойств с типом дата, AtlTLB генерирует следующий код:
Код: Выделить всё
function _propgetCreateDate : DATE;
  {
    _comCallCall(ocGet, 224, 'CreateDate', Result);
  }
  procedure _propputCreateDate( aCreateDate : DATE );
  {
    _comCallPutParam(0, aCreateDate, ocp_in);
    _comCallCall(ocPut, 228, 'CreateDate', aCreateDate );
  }
  property  CreateDate : DATE Read _propgetCreateDate Write _propputCreateDate(Result);
В данный момент для преобразования дат я пользуюсь эмпирической формулой:
dAtl:=from_days(dCOM+to_days(date(1,1,1900))-2);
Предлагаю:
1. Добавить две функции для конвертации дат (COM->Atlantis, Atlantis->COM)
2. Научить AtlTLB ими пользоваться, т.е. преобразовывать даты во врапере.