А у меня прекрасно пишет дату. Привожу кусочки кода:
DBFBase Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Connection
PERS Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Recordset
CREATE(DBFBase);
DBFBase.Open('DRIVER=Microsoft dBASE Driver (*.dbf);DRIVERID=277;DBQ=' + FilePath);
FileName:='PERS0001.dbf';
CREATE(PERS);
PERS.Open(FileName,DBFBase,2,3);
PERS.AddNew;
IF Employee."Birth Date"<>0D THEN
PERS.Fields().Item('DateRog').Value :=Employee."Birth Date";
PERS.Update;
PERS.Close();
CLEAR(PERS);
|