Работа с временем.

[celovec]

Подскажите в Delphi есть какие-то компоненты упрощающие работу с временем.

Тоесть у меня в переменной есть такой текст: Fri, 08 Apr 2011 12:25:40
Необходимо из него сделать это: 08/04/2011 12:25

Часы, минуты по сути я могу вырезать. А как быть с месяцем? Нужно делать какой-то цикл который будет перебирать все месяца и ставить им нужную цифру или как все это лучше реализовать?

[Человек_Борща]

DateUtils смотри.

[GunSmoker]

Не ясно, Apr - это при любом раскладе Apr? А если у меня винда русская - может там Апр будет? Или откуда это получается - из SQL? Может ли там быть Апр?

От этого надо начинать, а не от того, что там в Delphi есть.

[celovec]

Можно пример? Сейчас искал исходники, ничего подходящего для себя к сожалению не нашел.

GunSmoker, эта строка с RSS ленты. Apr - это при любом раскладе.

[GunSmoker]

На Delphi XE я бы сделал так:

procedure TForm1.Button1Click(Sender: TObject);

  // 'Tue, 03 Jun 2003 09:39:21' -> local TDateTime
  function RSSDateTimeToDateTime(const ADateTime: String): TDateTime;

    // 'Tue, 03 Jun 2003 09:39:21' -> '03/06/2003 09:39:21'
    function RSSDateTimeToShortDateTime(const ADateTime: String; var AFormatSettings: TFormatSettings): String;

      function IntToStrPad(const AInt, APadding: Integer): String;
      begin
        Result := IntToStr(AInt);
        if Length(Result) < APadding then
          Result := StringOfChar('0', APadding - Length(Result)) + Result;
      end;

    var
      X: Integer;
    begin
      AFormatSettings.ShortDateFormat := 'dd/mm/yyyy';
      AFormatSettings.ShortTimeFormat := 'hh:mm:ss';

      X := Pos(',', ADateTime);
      if X > 0 then
        Result := Trim(Copy(ADateTime, X + 1, MaxInt))
      else
        Result := Trim(ADateTime);

      for X := Low(AFormatSettings.ShortMonthNames) to High(AFormatSettings.ShortMonthNames) do
        Result := StringReplace(Result, ' ' + AFormatSettings.ShortMonthNames[X] + ' ',
                                        AFormatSettings.DateSeparator + IntToStrPad(X, 2) + AFormatSettings.DateSeparator, [rfIgnoreCase]);
    end;

  var
    FS: TFormatSettings;
    DateTime: String;
  begin
    GetLocaleFormatSettings($0409, FS);
    DateTime := RSSDateTimeToShortDateTime(ADateTime, FS);
    Result := StrToDateTime(DateTime, FS);
    // TODO: GMT to local?
  end;

var
  S: String;
  DT: TDateTime;
begin
  S := 'Tue, 03 Jun 2003 09:39:21';

  DT := RSSDateTimeToDateTime(S);

  Caption := DateTimeToStr(DT);
end;

Смысл в том, что в Delphi StrToDateTime работает только с short форматом строки - т.е. таким, который три компонента (числа) разделены DateSeparator-ом. Поэтому я сначала перевёл строку в ShortDateFormat (функция RSSDateTimeToShortDateTime), а затем - строку в TDateTime (обычным вызовом StrToDateTime).

Можно было сделать и по-другому - не использовать StrToDateTime, а ручками распарсить строку.

[celovec]

Огого. Спасибо конечно, наверняка поможет в будущем. Но в моем случае компактней и лучше будет разбить строчку допустим опираясь на пробелы и далее просто немного поработать с циклов в месяце.

[Dangerous*]

Здравствуйте! подскажите пожалуйста в Delphi можно сделать так чтобы программа рассчитывала время например тестирования.....т.е. в программе у меня задание и варианты ответов.....мне нужно время за которое пользователь ответит на поставленный вопрос

[Dangerous*]

и как эт сделать если эт возможно? заранее спасибо!