Проблема с использованием StrToDateTime

← →
ИМХО (2004-02-13 16:49) [0]

Если в панели управления ("Язык и стандарты") для краткого формата даты стоит "МММ/дд/гг" (фев/13/04), то функция StrToDateTime возвращает ошибку "фев/13/04 16:48:31 is not a valid date and time"

Как решить эту проблему?

← →
Anatoly Podgoretsky (2004-02-13 17:04) [1]

Ну не пользоваться таким извразенным форматом, зороший формат dd.mm.yyyy

← →
Семен Сорокин (2004-02-13 17:05) [2]

а если задать ShortDateFormat := "МММ/dd/yy" перед конвертацией?

← →
olookin (2004-02-13 17:08) [3]

Почитайте в хелпе Currency and date/time formatting variables поиск по ключевому слову DateSeparator. Если я не ошибаюсь - там приведены форматы дат, используемых в системе. Т.е. можно настроить для своей проги формат даты такой, какой используется в системе.

to [1] Anatoly Podgoretsky © (13.02.04 17:04)
Это все равно что сказать - не пользуйся Windows. Если кому то хочется использовать специфический формат даты - то пусть использует.

← →
ИМХО (2004-02-13 17:13) [4]

Блин, у меня сейчас так:

procedure TForm1.Button1Click(Sender: TObject);
var
Just_Date: TDateTime;
begin
ShortDateFormat := "dd.mm.yyyy";
Just_Date := StrToDateTime(DateTimeToStr(Now));
end;

Усё равно ошибка:
"фев/13/04 17:11:33 is not a valid date and time"

← →
ИМХО (2004-02-13 17:14) [5]

Нет, теперь такая:

"13.02.2004 17:13:16 is not a valid date and time"

← →
Плохиш (2004-02-13 17:24) [6]

А если написать Just_Date := StrToDateTime(DateTimeToStr(Date));
?

← →
ИМХО (2004-02-13 20:17) [7]

Тогда:

"13.02.2004 is not a valid date and time"

← →
Zz_ (2004-02-13 20:24) [8]

ShortTimeFormat

← →
DDA (2004-02-13 20:32) [9]

DateSeparator := "-";
ShortDateFormat := "d/m/yyyy";
Label1.Caption := DateToStr(Date);

Пример из Delphi

Проблема с использованием StrToDateTime Найти похожие ветки