Вниз
Скачать: CL | DM;

изменение формата строки даты для фунцкции StrToDateTime   Найти похожие ветки 

 
MadSnake ©   (2007-01-31 12:41) [0]

Здравствуйте
пытаюсь выполнить следующие действия
 try
   ShortDateFormat := "dd/MM/yyyy";
   DT := StrToDateTime(edit1.Text);
 finally
   ShortDateFormat := "dd.MM.yyyy";
 end;
для того, чтобы строка вида 30/01/2007 16:37:39
воспринималась как корректная строка даты времени
текущий формат даты - dd.MM.yyyy
Выдается ошибка " "30/01/2007 16:37:39" is not a valid date and time. "
помогите пожалуйста
спасибо


 
SH@RK ©   (2007-01-31 12:51) [1]

const
 myFmt: TFormatSettings = (
   CurrencyFormat: 1;
   NegCurrFormat: 5;
   ThousandSeparator: #0;
   DecimalSeparator: ".";
   CurrencyDecimals: 2;
   DateSeparator: ".";
   TimeSeparator: ":";
   ListSeparator: ";";
   CurrencyString: "";
   ShortDateFormat: "dd/MM/yyyy";
   LongDateFormat: "dddd d MMMM yyyy";
   TimeAMString: "";
   TimePMString: "";
   ShortTimeFormat: "hh:mm";
   LongTimeFormat: "hh:mm:ss";
 );
.....
begin
 DT := StrToDateTime("30/01/2007 16:37:39", myFmt);
....


 
MadSnake ©   (2007-01-31 13:01) [2]

Попробовал, возникает та же ошибка :((


 
MadSnake ©   (2007-01-31 16:39) [3]

Нашел, надо еще выставить "DateSeparator: "/";", тогда все получается.
Спасибо за помощь



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c
2-1172936846
LigthStone
2007-03-03 18:47
2007.03.25
Unicode


2-1173021816
pasha star
2007-03-04 18:23
2007.03.25
startup my exe


15-1172869910
Nic
2007-03-03 00:11
2007.03.25
Организация времени


2-1172849058
Магедон
2007-03-02 18:24
2007.03.25
Как предотвратить н-й запуск приложения?


15-1172610646
rolex
2007-02-28 00:10
2007.03.25
Цвет кнопки ПУСК




   Наверх