### Исправление бага с датой в Excel через Delphi: как преодолеть ошибку 1900 года

Delphi , Технологии , COM и DCOM

Исправление бага с датой в Excel через Delphi: как преодолеть ошибку 1900 года

В статье рассматривается проблема, с которой сталкиваются разработчики, использующие Delphi для работы с датами в Excel: ошибка, связанная с некорректным отображением даты 10/01/1900 как 09/01/1900. Это происходит из-за известного бага в Excel, который относится к неправильному предположению о високосности года 1900. В статье будет дан подробный обзор проблемы и предложено решение, основанное на пересмотренном поведении Excel через Delphi API.

Описание проблемы

Рассмотрим типичный сценарий: приложение на Delphi читает данные из Excel с использованием OLE-объектов. В примере кода приведены базовые операции для открытия книги Excel и чтения даты из ячейки E2:

procedure TForm1.Button1Click(Sender: TObject);
var
  xlApp, xlWorkBook, xlWorkSheet, arr: Variant;
begin
  xlApp := CreateOLEObject('Excel.Application');
  xlApp.Visible := False;

  xlWorkBook := xlApp.Workbooks.Open('C:\Temp\Book1.xlsx');
  xlWorkSheet := xlApp.WorkSheets[1];
  arr := xlWorksheet.Range['E2:E2'].Value;
  xlApp.Quit;
end;

Проблема возникает, когда в ячейке E2 хранится дата 10/01/1900, но возвращаемое значение – это 09/01/1900. Это происходит из-за специфической ошибки Excel, которая затрагивает даты в промежутке между 01-01-1900 и 29-02-1900, так как Excel ошибочно считает 1900 год високосным.

Известные источники

Подробнее о проблеме можно узнать, ознакомившись с материалами:

• Dates And Times In Excel
• Excel 2000 incorrectly assumes that the year 1900 is a leap year

Подтвержденное решение

Чтобы преодолеть данный баг, разработчику необходимо внести корректировки в код обработки дат. Excel хранит даты, начиная с 1900 года, в виде целых чисел, где каждый день представляет собой количество дней, прошедших с 31 декабря 1899 года. Следовательно, значение даты 10/01/1900 в Excel будет 60, а не 61, как можно было бы ожидать.

Для исправления ошибки необходимо скорректировать способ обработки дат. Пример кода, который исправляет эту проблему, выглядит следующим образом:

var
  xlApp, xlWorkBook, xlWorkSheet, rawDate: Variant;
begin
  xlApp := CreateOLEObject('Excel.Application');
  xlApp.Visible := False;

  xlWorkBook := xlApp.Workbooks.Open('C:\Temp\Book1.xlsx');
  xlWorkSheet := xlApp.WorkSheets[1];
  rawDate := xlWorksheet.Range['E2:E2'].Value2; // Используем Value2 для получения корректного значения
  // Исправляем баг, прибавляя к дате 1, так как Excel считает 1900 год високосным
  rawDate := rawDate + 1;
  // Теперь можно работать с датой как с обычным числом
  // ...
  xlApp.Quit;
end;

Альтернативные способы

Существуют и другие способы решения этой проблемы, включая использование специализированных библиотек для работы с датами, которые корректно обрабатывают этот баг. Однако, если вы хотите оставаться в рамках стандартных возможностей Delphi, то предложенный выше подход окажется простым и эффективным решением.

Заключение

Используя предложенные корректировки, разработчики могут избежать ошибок, связанных с обработкой дат в Excel через Delphi. Важно помнить о специфике хранения дат в Excel и учитывать её при разработке приложений, использующих OLE-объекты для работы с Excel.

Создано по материалам из источника по ссылке.

### Описание Проблема заключается в ошибке Excel, из-за которой дата 10 января 1900 года отображается как 9 января 1900, когда работает с ней через Delphi, и требуется исправление, связанное с корректировкой подсчёта дней в Excel, начиная с 1900 года.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: COM и DCOM ::