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

← →
TNK (2012-02-15 10:55) [0]

Здравствуйте ! На вашем сайте нашла пример - см. ниже . Мне нужно преобразовать строку <"6-Apr-1998"> в дату --> <06.04.1998> .
Когда пытаюсь пробовать пример (см. ниже) , появляется ошибка в каждой строке примера - <Invalid variant conversion> . В чем же причина ?

Пример с сайта :

Как преобразовать строку в дату.
Функция 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;

← →
MBo © (2012-02-15 11:10) [1]

Caption := DateTimeToStr(VarToDateTime("15 февраля 2012"));
работает, т.к. вызов функции приводит к
VarDateFromStr(S, VAR_LOCALE_USER_DEFAULT, 0, Result);

Правда, попытка добавить "г." (у меня в настройках полная дата выглядит как "15 февраля 2012 г.") не фурычит

← →
Inovet © (2012-02-15 11:12) [2]

> [0] TNK (15.02.12 10:55)

Локаль русская?

← →
Омлет © (2012-02-15 11:12) [3]

В русской локали Apr = Апр
D2 := VarToDateTime("6-Апр-1998");

> TNK (15.02.2012 10:55:00) [0]

Пиши свою функцию, что бы не зависить от локалей.

Как преобразовать строку в дату. Найти похожие ветки