Как преобразовать строку в дату

Delphi , Синтаксис , Дата и Время

Функция StrToDate преобразует только числа, поэтому, если у Вас месяцы в виде имён, то прийдётся использовать VarToDateTime.

var
  D1, D2, D3 : TDateTime;
begin
  D1 := VarToDateTime('December 6, 1969');
  D2 := VarToDateTime('6-Apr-1998');
  D3 := VarToDateTime('1998-Apr-6');
  ShowMessage(DateToStr(D1)+' '+DateToStr(D2)+' '+DateToStr(D3));
end;

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

Обзор кода:

1. Переменные D1, D2 и D3 объявлены как типа TDateTime.
2. Функция VarToDateTime используется для преобразования трех различных строковых представлений дат в объекты TDateTime:
   • 'December 6, 1969': эта строковая дата включает месяц "Декабрь".
   • '6-Apr-1998': эта строковая дата использует компактный формат с день-месяц-год.
   • '1998-Apr-6': эта строковая дата также использует компактный формат с год-месяц-день.
3. Полученные объекты TDateTime хранятся в переменных D1, D2 и D3.
4. В конце функция DateToStr используется для преобразования каждого объекта TDateTime обратно в строковое представление, которое затем отображается с помощью ShowMessage.

Вывод будет окном сообщения, отображающим три строки даты:

"Декабрь 6, 1969 Апрель 6, 1998 Апрель 6, 1998"

Код демонстрирует, как функция VarToDateTime может обрабатывать различные форматы строковых представлений дат и преобразовывать их в стандартный формат TDateTime.

Преобразование строки в дату может быть выполнено с помощью функции VarToDateTime, которая позволяет преобразовать строку в формате имён месяцев или чисел в даты.

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

:: Главная :: Дата и Время ::