regkz
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hiken
так есть собственная функция StrToDateTime, но можно и свой вариант набросать
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
// строка с датой
DTStr : string;
// переменные для сохранения форматов
ShortDF, ShortTF : string;
TS, DS : char;
// дата и время
D, T, DT : TDateTime;
begin
// заполняем строку
DTStr := '19-07-06 01:53';
// сохраняем форматы разделителей и форматы даты и времени
DS := DateSeparator;
TS := TimeSeparator;
ShortDF := ShortDateFormat;
ShortTF := ShortTimeFormat;
// устанавливаем свои форматы
DateSeparator := '-';
ShortDateFormat := 'dd-mm-yy';
TimeSeparator := ':';
ShortTimeFormat := 'hh:mm';
// конвертим строку в дату
try
D := StrToDate(Copy(DTStr, 1, Pos(' ', DTStr) - 1));
T := StrToTime(Copy(DTStr, Pos(' ', DTStr) + 1, Length(DTStr)));
DT := trunc(D) + frac(T);
except
on EConvertError do
ShowMessage('Ошибка при конвертации: ' + DTStr);
end;
// возвращаем прежние форматы
DateSeparator := DS;
ShortDateFormat := ShortDF;
TimeSeparator := TS;
ShortTimeFormat := ShortTF;
// вывод полученной даты или работа с результатом
...
end;
|
при желании можно оформить в функцию |
