Формат времени

[nikcpp]

Подскажите как с формата YYYY-MM-DDTHH:MM:SS.ZZZZ+HH перевести в формат YYYY-MM-DD HH:MM:SS .

[Stilet]

Откуда время получаешь?
И в каком виде? В виде строки?

[nikcpp]

Сообщение от Stilet

Откуда время получаешь?
И в каком виде? В виде строки?

да в виде строки. получаю с eventlog windows 7 использую при этом WMI

[alextrof94]

http://www.delphibasics.ru/DateTimeToString.php DateTimeToString
http://www.delphibasics.ru/FormatDateTime.php FormatDateTime

[nikcpp]

Сообщение от alextrof94

http://www.delphibasics.ru/DateTimeToString.php DateTimeToString
http://www.delphibasics.ru/FormatDateTime.php FormatDateTime

Это не то, ни DateTimeToString ни FormatDateTime не знают что такое +HH , а это часовой пояс. который надо учитывать.

[alextrof94]

Парсь строку на составляющие и делай что хочешь.
Вроде должно работать. Если не работает, то ошибка скорее всего в прибавлении и убавлении дат, попробуй использовать модуль DateUtils и его функции IncHour, IncMinute и подобные.

function GetDateTimeString(StrIn: String): String; //в функцию подаем строку вида "YYYY-MM-DDTHH:MM:SS.ZZZZ+HH"
var 
 Date: TDateTime;
begin
 Date:=StrToDateTime(Copy(StrIn, 1, 10)); //берем дату
 Date:=Date+StrToTime(Copy(StrIn, 12, 8)); //берем и прибавляем время
 if Copy(StrIn, 25, 1)='+' then
  Date:=Date+StrToTime(Copy(StrIn, 26, 2)) //если стоит знак+ то прибавляем часовой пояс
 else
  Date:=Date-StrToTime(Copy(StrIn, 26, 2)); //иначе убавляем часовой пояс

 Result:=FormatDateTime('YYYY-MM-DD HH:MM:SS', Date);
end;

Ну или без объявления доп переменных. Хрен знает, заработает ли, даже если пример выше сработает.

function GetDateTimeString(StrIn: String): String; //в функцию подаем строку вида "YYYY-MM-DDTHH:MM:SS.ZZZZ+HH"
begin
 if Copy(StrIn, 25, 1)='+' then
  Result:=FormatDateTime('YYYY-MM-DD HH:MM:SS', 
   StrToDateTime(Copy(StrIn, 1, 10))+
   StrToTime(Copy(StrIn, 12, 8))+
   StrToTime(Copy(StrIn, 26, 2)))
 else
  Result:=FormatDateTime('YYYY-MM-DD HH:MM:SS', 
   StrToDateTime(Copy(StrIn, 1, 10))+
   StrToTime(Copy(StrIn, 12, 8))-
   StrToTime(Copy(StrIn, 26, 2)));
end;

[nikcpp]

Сообщение от alextrof94

Парсь строку на составляющие и делай что хочешь.
Вроде должно работать. Если не работает, то ошибка скорее всего в прибавлении и убавлении дат, попробуй использовать модуль DateUtils и его функции IncHour, IncMinute и подобные.

function GetDateTimeString(StrIn: String): String; //в функцию подаем строку вида "YYYY-MM-DDTHH:MM:SS.ZZZZ+HH"
var 
 Date: TDateTime;
begin
 Date:=StrToDateTime(Copy(StrIn, 1, 10)); //берем дату
 Date:=Date+StrToTime(Copy(StrIn, 12, 8)); //берем и прибавляем время
 if Copy(StrIn, 25, 1)='+' then
  Date:=Date+StrToTime(Copy(StrIn, 26, 2)) //если стоит знак+ то прибавляем часовой пояс
 else
  Date:=Date-StrToTime(Copy(StrIn, 26, 2)); //иначе убавляем часовой пояс

 Result:=FormatDateTime('YYYY-MM-DD HH:MM:SS', Date);
end;

Ну или без объявления доп переменных. Хрен знает, заработает ли, даже если пример выше сработает.

function GetDateTimeString(StrIn: String): String; //в функцию подаем строку вида "YYYY-MM-DDTHH:MM:SS.ZZZZ+HH"
begin
 if Copy(StrIn, 25, 1)='+' then
  Result:=FormatDateTime('YYYY-MM-DD HH:MM:SS', 
   StrToDateTime(Copy(StrIn, 1, 10))+
   StrToTime(Copy(StrIn, 12, 8))+
   StrToTime(Copy(StrIn, 26, 2)))
 else
  Result:=FormatDateTime('YYYY-MM-DD HH:MM:SS', 
   StrToDateTime(Copy(StrIn, 1, 10))+
   StrToTime(Copy(StrIn, 12, 8))-
   StrToTime(Copy(StrIn, 26, 2)));
end;

Я тоже поначалу так думал но там есть свои подводные камни , иногда надо будет и деть прибавлять и месяц и год,
могу привести пример с днем
2013-11-25T23:57:49.1234+04 должно получиться 2013-11-26 03:57:49

Вот я сижу и думаю что делать есть 2 варианта.
1. Написать свою функцию и парсить строку со всеми проверками (на месяц год день и высокоомные года)
2. написать библиотеку на XE4 с использованием stringhealp

[Аватар]

иногда надо будет и деть прибавлять и месяц и год

Зачем? Прибавляя(отнимая) к дате-времени несколько часов(минут, секунд) в ней и без вашего участия при необходимости изменится число (месяц, год)

[Serge_Bliznykov]

Написать свою функцию и парсить строку со всеми проверками (на месяц год день и высокоомные года)

Да Вам нужно всего навсего
1) перевести всю часть до TMZ в формат DateTime
2) распарсить строки, выдернув смещение (я бы взял от конца строки первый знак + или - )
3) стандартными функция прибавил смещение (в часах) к дате, полученной в п 1).
профит.


Аватар, извините, я по сути продублировал ваш ответ.
Когда писал, забыл обновить страницу и не увидел ваш пост...

[Аватар]

var s,c: String;
    d: TDateTime;

  s:='2013-11-27T07:36:24.2222+04';
  try
    d:=EncodeDateTime(StrToInt(Copy(s,1,4)),
                      StrToInt(Copy(s,6,2)),
                      StrToInt(Copy(s,9,2)),
                      StrToInt(Copy(s,12,2)),
                      StrToInt(Copy(s,15,2)),
                      StrToInt(Copy(s,18,2)),
                      0);
    d:=IncHour(d,StrToInt(Copy(s,25,3)));
    c:=FormatDateTime('yyyy-mm-dd hh:nn:ss',d); //результат
  except
  //что-то вроде сообщения о не допустимых входных данных
  end;

Только совсем не уверен, что нужно смещение из данных использовать. Возможено оно и не нужно, а нужно смещение своего часового пояса. Ну это ТС разбираться