Исправление ошибок форматирования дат в Excel при работе через OLE из Delphi: решено для разных локализаций

Delphi , Технологии , OLE

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

Пример кода, вызывающего проблему:

xlws.Cells[irow, icol] := ActivityData.Target_Date;
xlvalidrange := xlws.Range[xlws.Cells[irow, icol], xlws.Cells[irow, icol]];
xlvalidrange.NumberFormat := LocShortDateFormat;

Где LocShortDateFormat обычно равен 'dd.MM.yyyy', но в определенных локализациях это приводит к ошибке при открытии файла Excel, так как данные отображаются как числа без форматирования.

Подход к решению:

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

function GetExcel_International(const aExcel: OleVariant; const aIndex: Integer): string;
begin
  try
    Result := aExcel.International[aIndex];
  except
    // Обработка исключений
  end;
end;

Затем полученные символы используются для преобразования формата даты из Windows в формат, используемый в Excel. Пример функции преобразования:

function ConvertWindowsLocalDateStringToExcel(const aString: string): string;
begin
  // Преобразование символов года, месяца и дня
end;

Альтернативное решение:

В качестве альтернативы, можно использовать следующий подход:

var
  tReportDate: TDate;
begin
  tReportDate := FieldByName('DateReport').AsDateTime;
  ExcelApp.Cells[StartColumnid, 1].Value := tReportDate;

Этот метод предполагает сначала создать переменную типа TDate, заполнить её данными из таблицы, и только после этого вставлять в ячейку Excel, что может решить проблему в международных проектах.

Заключение:

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

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

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

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

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

:: Главная :: OLE ::