Дата и время

← →
Марат (2004-04-08 13:42) [0]

Здаравствуйте, мастера. Ворпос встал такой: необходимо сравнить две даты Д1 и Д2 (на >,< или=). Д1 может быть формата dd.mm.yy или dd.mm.yy hh.mm.ss, а Д2 это текущая дата. Когда я запускаю программу пошагово, то я вижу, что дата отображается в виде числа. А можно ли это число как-нибудь присвоить какой-нибудь переменной. Ну типа: К:=...(Д1)?

← →
Тимохов © (2004-04-08 13:46) [1]

> Д1 может быть формата dd.mm.yy или

Дата не может быть никакого формата. Тип TDatetime - это фактически double. Целая часть дни, дробная минуты, часы. Это см. в хелпе tdatetime+f1.

на ваш вопрос я не ответил, но наверое прояснил для вас ситуацию, чтобы задать вопрос в более понятной форме.

← →
Denis © (2004-04-08 13:48) [2]

Можно.
Используй, например, real.

← →
Vlad Oshin © (2004-04-08 13:49) [3]

type TDateTime = type Double;

← →
Denis © (2004-04-08 13:54) [4]

Угум. Корректнее - Double.

← →
Марат (2004-04-08 14:21) [5]

Попробую объяснить обширнее. До этого момента, в таблицу записывался контрольный срок без времени (т.е. использовалась функция Date). Теперь возникла необходимость записывать дату со временем (т.е. Now). На одной из форм проекта в DBGrid была такая проверка:
if TDBGrid(Sender).DataSource.DataSet.FieldByName("Dt_Cntr").AsDateTime< Date then
begin
TDBGrid(Sender).Canvas.Brush.Color:=$006CFF;
end;
т.е. строка в DBGrid закрашивается определенным цветом, в зависимости от сравнения контрольного срока с текущей датой (в данном примере красным).
Теперь в поле "Dt_Cntr" таблицы я записал первое значение со временем и возникла проблема: условие не работает.

if Int(TDBGrid(Sender).DataSource.DataSet.FieldByName("Dt_Cntr").AsDateTime) < Date then

А какой смысл сравнивать дату+время с просто датой?
Тогда уже так:

if TDBGrid(Sender).DataSource.DataSet.FieldByName("Dt_Cntr").AsDateTime< Now then

Дата и время Найти похожие ветки