• Registered: 2016-11-05
  • Posts: 149

Re: ДАТА и ВРЕМЯ...

RZ-007 wrote:

Дмитрий огромное Вам СПАСИБО!!!
Друзья кому интересно скрипт РАБОЧИЙ...
правда кое что поправил...поменял местами...Дмитрий надеюсь правильно!!!

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    iTimer := 90;               //задаём время в сек...
    Timer.Enabled := True;      // Start timer
    Timer.OnTimer := @OnTimer;  // event procedure
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Timer := TTimer.Create(nil); // создать таймер
    Timer.Interval := 1000;
end;

ЕЩЁ РАЗ СПАСИБО!!!

можете выложить свой проект для примера?

27 Reply by RZ-007 (edited by RZ-007 2017-01-11 08:41:46)

  • Registered: 2015-11-28
  • Posts: 160

Re: ДАТА и ВРЕМЯ...

Всем хорошего настроения!!!
Дмитрий у меня такая заминка................
Благодаря парсингу заполнил таблицу "ААА"  с полями.......... + <<dates>>(ДАТА и ВРЕМЯ)
итог в гриде:
..........<<=====>>.........11.01.2017 10:21:11
..........<<=====>>.........11.01.2017 10:21:15
..........<<=====>>.........11.01.2017 10:21:19
Вопрос:
подскажите как сдалать запрос по клику на Button!!!
-Сходить в таблицу "ААА" с полем <<dates>>(ДАТА и ВРЕМЯ)
-найти наибольшую и наименьшую (ДАТА и ВРЕМЯ)
P./S.  (ДАТА и ВРЕМЯ) в таблице своё первоначальное значения менять не будет,
НО  возможно в будущем изменит своё нахождения вверх...вниз...т.е. местами!!!
КАК НАЙТИ РАЗНИЦУ ВО ВРЕМЕНИ ПОТРАЧЕННОЕ  НА ПАРСИНГ
отобразив в Label1????????.........<< 00:00:08 >>.........???????????????????????

  • Registered: 2014-02-14
  • Posts: 10,294

Re: ДАТА и ВРЕМЯ...

RZ-007


SQL запросы для нахождения минимума и максимума

SELEC MAX(dates) FROM tablename

SELEC MIN(dates) FROM tablename


найти время затраченное на какое либо действие в скрипте можно так

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    Start: double;
begin
    start := GetTickCount;

    // ваш код

    Form1.Label1.Caption := FormatDateTime('hh:mm:ss', ((GetTickCount-start) div 1000) / 86400  );
end;
Dmitry.
  • Registered: 2015-11-28
  • Posts: 160

Re: ДАТА и ВРЕМЯ...

Ух ты!!!   GetTickCount -это здорово!!!...Спасибочки!!!
Дмитрий помогите произвести разницу:

Form1.Label15.Caption :=(SQLExecute('SELECT MAX(dates) FROM GIS'))- (SQLExecute('SELECT MIN(dates) FROM GIS'));
  • Registered: 2014-02-14
  • Posts: 10,294

Re: ДАТА и ВРЕМЯ...

RZ-007
как должен выглядеть результат?

Dmitry.

31 Reply by RZ-007 (edited by RZ-007 2017-01-12 12:45:07)

  • Registered: 2015-11-28
  • Posts: 160

Re: ДАТА и ВРЕМЯ...

DriveSoft wrote:

RZ-007
как должен выглядеть результат?

например только время :  00:05:23

  • Registered: 2014-02-14
  • Posts: 10,294

Re: ДАТА и ВРЕМЯ...

нашел в сети такое вот решение

SELECT
    CAST((strftime('%s', JulianDay(MAX("DateField"))) - strftime('%s', JulianDay(MIN("DateField")))) / (60 * 60 * 24) AS TEXT) || ' days ' ||
    CAST(((strftime('%s', JulianDay(MAX("DateField"))) - strftime('%s', JulianDay(MIN("DateField")))) % (60 * 60 * 24)) / (60 * 60) AS TEXT) || ':' ||
    CAST((((strftime('%s', JulianDay(MAX("DateField"))) - strftime('%s', JulianDay(MIN("DateField")))) % (60 * 60 * 24)) % (60 * 60)) / 60 AS TEXT)

FROM employees

показывает дни, часы и минуты

Dmitry.
  • Registered: 2023-10-22
  • Posts: 21

Re: ДАТА и ВРЕМЯ...

Здравствуйте.

Как по клику на строку в dategrid перенести дату из строки dategrid в datatimepiker? (на форме)

Post's attachments

Attachment icon KR6egFBSqJ.png 14.94 kb, file has never been downloaded. 

34 Reply by levrussia174 (edited by levrussia174 2024-04-10 19:01:04)

  • Registered: 2023-10-22
  • Posts: 21

Re: ДАТА и ВРЕМЯ...

Вот проект:
Или можно как то выгружать данные в Edit и в  DataTimePiker по самой последней дате и времени из datagrid?

Post's attachments

Attachment icon gold.rar 371.35 kb, 10 downloads since 2024-04-10 

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,675

Re: ДАТА и ВРЕМЯ...

Привет,
Сделать это можно двумя способами (см. строки 7-8 скрипта в прилагаемом примере).
Второй способ (строка 8), вероятно, немного более эффективен, поскольку позволяет избежать дополнительных обращений к базе данных.
С уважением
Derek.

Post's attachments

Attachment icon gold2.zip 418.88 kb, 18 downloads since 2024-04-11 

  • Registered: 2023-10-22
  • Posts: 21

Re: ДАТА и ВРЕМЯ...

derek wrote:

Привет,
Сделать это можно двумя способами (см. строки 7-8 скрипта в прилагаемом примере).
Второй способ (строка 8), вероятно, немного более эффективен, поскольку позволяет избежать дополнительных обращений к базе данных.
С уважением
Derek.


Спасибо вам большее. Да, то-что и было нужно.
С уважением Лев!