string to TDateTime - Общие вопросы Delphi

NieL · 30.03.2009, 17:12

нужно преобразовать в строковом представлении дату и время (dd.mm.yyyy hh:mm) в TDateTime
Делаю как-то так:

Код:

dt1 := StrToDateTime(Copy(field_value, 7, 4) + DateSeparator +
   Copy(field_value, 4, 2) + DateSeparator + Copy(field_value, 1, 2)
   + ' ' + Copy(field_value, 12, 2) + TimeSeparator + Copy(field_value, 15, 2));

или

 dt1 := EncodeDateTime(StrToInt(Copy(field_value, 7, 4)),
   StrToInt(Copy(field_value, 4, 2)) , StrToInt(Copy(field_value, 1, 2)),
   StrToInt(Copy(field_value, 12, 2)), StrToInt(Copy(field_value, 15, 2)),
   0, 0);

В обоих случаях преобразование выполняется медленно. Что посоветуете?

Ntlegend · 30.03.2009, 18:28

скопируй значение с field_value в локальную переменную.. это ускорит обработку данных.. и потом попробуй от такую функцыю:

Код:

function MyStrToDateTime(Data, Time: string):Double;
var d, t:double;
begin
Result:=0;
d:=StrToDate(Data);
t:=StrToTime(Time);
Result:=d+t;
end;

NieL · 30.03.2009, 18:43

Вопрос решился сам по себе, тему можно закрывать (P.S. забыл про использование TFormatSettings)

30.03.2009, 17:12	#1
NieL Форумчанин Регистрация: 17.11.2008 Сообщений: 116	string to TDateTime нужно преобразовать в строковом представлении дату и время (dd.mm.yyyy hh:mm) в TDateTime Делаю как-то так: Код: `dt1 := StrToDateTime(Copy(field_value, 7, 4) + DateSeparator + Copy(field_value, 4, 2) + DateSeparator + Copy(field_value, 1, 2) + ' ' + Copy(field_value, 12, 2) + TimeSeparator + Copy(field_value, 15, 2)); или dt1 := EncodeDateTime(StrToInt(Copy(field_value, 7, 4)), StrToInt(Copy(field_value, 4, 2)) , StrToInt(Copy(field_value, 1, 2)), StrToInt(Copy(field_value, 12, 2)), StrToInt(Copy(field_value, 15, 2)), 0, 0);` В обоих случаях преобразование выполняется медленно. Что посоветуете?

30.03.2009, 18:28	#2
Ntlegend Форумчанин Регистрация: 12.05.2007 Сообщений: 373	скопируй значение с field_value в локальную переменную.. это ускорит обработку данных.. и потом попробуй от такую функцыю: Код: `function MyStrToDateTime(Data, Time: string):Double; var d, t:double; begin Result:=0; d:=StrToDate(Data); t:=StrToTime(Time); Result:=d+t; end;` Перемен! - требуют наши сердца. Перемен! - требуют наши глаза. В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
String	t@t@rin	Помощь студентам	3	09.11.2009 20:46
Variant в TDateTime	SoLL	Общие вопросы Delphi	2	13.02.2009 11:49
[Error] UIsp.pas(232): Incompatible types: 'TAge' and 'TDateTime'	Nikitin	Общие вопросы Delphi	2	03.04.2008 11:56
Добавить тип TTime:TDateTime	Nikitin	Помощь студентам	2	18.02.2008 08:31
TDateTime - математика времени	_SERGEYX_	Общие вопросы Delphi	2	14.09.2007 14:27

30.03.2009, 18:43	#3
NieL Форумчанин Регистрация: 17.11.2008 Сообщений: 116	Вопрос решился сам по себе, тему можно закрывать (P.S. забыл про использование TFormatSettings)