Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Июл

Как сравнить сохранённое время с текущим

Posted by Chas under Пост-обзор

есть таблица с колонками Время_нач и Время_кон. Если текущее время меньше начального и больше конечного то закрасить строку.

Serge_Bliznykov:
работать с датой и временем нужно в рамках выделенных под это структур данных

var dTimeCurrent : TDateTime;

...

begin

   dTimeCurrent := Time();

...
 if (dTimeCurrent<
    TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_нач').AsDateTime) 
or
 (dTimeCurrent>

    TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_кон').AsDateTime)

then ....

p.s. дата при этом в поле время_нач и время_кон не должна присутствовать!
для надёжности можно принудительно отбросить дату:

if (dTimeCurrent<
      frac(TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_нач').AsDateTime))
or
 (dTimeCurrent>

    frac(TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_кон').AsDateTime))

then ....

p.p.s. поставьте у ADOConnection1 свойства LoginPrompt в False

тема на форуме