![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нестабильно работет StrToDateTime() [D2005]
sdfdh © (2014-04-10 20:49:00)Здравствуйте!
Необходимо кодировать текст в дату. Использую следующий код:
procedure TForm1.Button1Click(Sender: TObject);
Var
StrDate : string;
Fmt : TFormatSettings;
dt : TDateTime;
begin
fmt.ShortDateFormat:='dd.mm.yyyy';
fmt.DateSeparator :='.';
StrDate:='02.04.2014';
dt:=StrToDateTime(StrDate,Fmt);
end;
Переменной dt присваивается 02.04.2014
Однако, если я тот же код!!! Один в один, вставляю в свое приложение, то этот же код уже не работает. dt=30.12.1899
В чем проблема? Что не так?
[ВладОшин] (2014-04-10 21:05:00) [41]
> В чем проблема?
а внимательно посмотрели?
рискну, что юзается не та пременная, которая передается, уж больно подозрительно
Rouse_ (2014-04-10 20:57:00) [42]А если вот так? "30.12.1899 12:00"