Подсчёт кол-ва дней

[ivp88]

Здравствуйте ....если кто сталкивался с такой проблемкой...... у меня в поле вставляется автоматически дата дд.мм.гггг ..... скажите как мне подсчитать кол-во дней при прошевтвию опеределенного времени ............... ????

[Yurk@]

Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях.

uses DateUtils;
var
fromdate, toDate : TDateTime;

begin
  // Установка наших переменных дат
  fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
  toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

  // Отображение этих дат и дней между ними
  ShowMessage('С даты = '+DateTimeToStr(fromDate));
  ShowMessage('До даты = '+DateTimeToStr(toDate));
  ShowMessage('Целых дней = '+
              IntToStr(DaysBetween(toDate, fromDate))+' дней');
end;

Результат:
С даты = 26/02/2000 10:00:00
До даты = 29/02/2000 09:00:00
Целых дней = 2 дней

Примечания
Целый день не должен начинаться с 00:00:00.

[ivp88]

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

[ivp88]

ООООООй ПАРДОН я забыл подключить модуль DateUtils;
var s, d: integer;
fromdate, toDate : TDateTime;
begin
fromDate :=StrToDate(TableVVVidacha.FieldByN ame('DataVidachi').AsString) ;
toDate := now;
d:=DaysBetween(toDate, fromDate);
Edit7.Text:=IntToStr( d);
end;

[mihali4]

TDateTime представляет собой число с плавающей запятой.
Дробная часть - время, целая - дата.
Делая простое вычитание целых, получите разницу в днях.
Приведите конкретный пример дат, разницу между которыми вам нужно получить (не забудьте указать форматы исходных данных), мы этот пример разберем.

[ivp88]

у меня в таб. Выдача[ ID_выдачи, Инвен.№книги,Назв.кн-ги, ID_читат,дата выдачи], .... мне нужно вывести читателей держащих книгу более месяца......я создал вычисляемое поле Dni ...но при запросе
SELECT DISTINCT * FROM Vidacha WHERE dni>30 и выходит ошибка "invalid field name dni "

[mihali4]

Во-первых, вычисляемое поле не может участвовать в сиквел-запросе!
Во-вторых, структура полей вашей таблицы - без надобности. Скажите просто тип поля для даты выдачи.
Хотя и без этого тоже попробуем обойтись.
Попробуйте
tmp:=FormatDateTime('dd.mm.yyyy',No w+30);
...SQL.Text:='SELECT DISTINCT * FROM Vidacha WHERE дата_выдачи>'+QuotedStr(tmp);
Думаю, погрешность в 1 день (если в текущем месяце 31 день) вас не волнует, иначе - введите коррекцию.

[ivp88]

тип поля с датой - Date.....