StrToDate

← →
Belkova (2004-10-06 13:01) [0]

Мастера, Delphi. Подскажите , пожалуйста. Если в windows установлен формат даты вида "DD.MM.YY г.", то Функция StrToDate("12.09.04 г.") не работает. Если "DD.MM.YY" то все в порядке.
Как-то можно учесть это в прогамме, не меняя формат, установленный в windows?

← →
Anatoly Podgoretsky © (2004-10-06 13:05) [1]

В StrToDate надо подавать только дату, литералы в формате только для вывода

← →
Belkova (2004-10-06 13:09) [2]

В прогамме пишется
EditDate.Text:=IBQuery["Dates"];
в результате в EditDate дата выводится с литералом.
в последствии Нужно из Editdate передать параметр
Выполняю D:=StrToDate(Editdate.Text);
в результате ошибка. Как убрать литерал?

← →
begin...end © (2004-10-06 13:13) [3]

Text := Copy(EditDate.Text, 1, Length(EditDate.Text) - 3);
D := StrToDate(Text);

(Если они у тебя все в одном формате.)

begin...end © (06.10.04 13:13) [3]
Не пойдет, если пользователь изменит формат на dd.mm.yyyy г, то проблема, копировать надо через поиск пробела, функцией POS

← →
Belkova (2004-10-06 13:17) [5]

Спасибо.

StrToDate Найти похожие ветки