15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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

Компилятор: 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;