Для свойств с типом дата, 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 ими пользоваться, т.е. преобразовывать даты во врапере.