Передача параметров типа Datetime в запрос из отдельных Date и Time

отредактировано October 2009 Раздел: FastReport 4.0
Уважаемые коллеги!

Нужно передать дату с точностью до минуты в запрос. Для ввода используются 2 TfrxDateEdit Controlа. Как их Date одного и Time другого передать DateTime в запрос?

Комментарии

  • Lizard~Lizard~ Тольятти
    отредактировано 05:54
    написал: »
    Уважаемые коллеги!

    Нужно передать дату с точностью до минуты в запрос. Для ввода используются 2 TfrxDateEdit Controlа. Как их Date одного и Time другого передать DateTime в запрос?

    Элементарно.
    Пример прилагается.
  • отредактировано 05:54
    Lizard~, спасибо за ответ.

    Архив, по-видимому, поврежденный, Вы не могли бы выложить ещё раз или вставить в топик код из отчёта?
  • Lizard~Lizard~ Тольятти
    отредактировано October 2009
    написал: »
    Lizard~, спасибо за ответ.

    Архив, по-видимому, поврежденный, Вы не могли бы выложить ещё раз или вставить в топик код из отчёта?

    Нормальный архив. Качать нужно IE. У меня Opera тоже качает битый.
    Var
      Dt : TdateTime;
    Begin
      Dt := Integer(EdtDate.Date)+Frac(edtTime.Time);
    end;
    

    За точность не ручаюсь, только суть.
    От редактора даты берём только чистую дату без времени : Integer(EdtDate.Date); Целая часть. (Можно Round(val, 0))
    От редактора времени, только время: Frac(edtTime.Time) Дробная часть.
  • отредактировано 05:54
    Понятно, такой небольшой хак формата даты :) . Спасибо!

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.