Нахождение Разницы Между датами

[reihtmonbern]

Здравствуйте всем кто читает мою тему. У меня к вам такой вопрос: У меня есть БД ms acesss в Delphi я отображаю из неё данные ( две даты) с помощью DBEdit1(начальная дата) и DBEdit2 (конечная дата), как мне найти разницу между датами (конечная дата - начальная дата); Либо может вы мне подскажете код как в Delphi реализовать sql запрос на вычитание одной даты из другой. С БД работаю под ADO.:=)

[asmodey1]

Разница между датами:=Конечная_дата - Начальная_дата
Пригодится также функция StrToDate()...

[reihtmonbern]

ну пасиб.. прям так скопирую в делфи и вставлю- супер ответ......

[asmodey1]

Сообщение от reihtmonbern

ну пасиб.. прям так скопирую в делфи и вставлю- супер ответ......

Ну, если вы неспособны самостоятельно заменить 'Конечная_дата' на название вашего поля конечной даты и 'Начальная_дата' - на название вашего поля начальной даты, а также назначить имя поля для результата...
Тогда дайте структуру таблицы. Похоже, вы привыкли только к блюдечку с голубой каемочкой... ("Золотой теленок").

З.Ы. "Неотстойный" форум, по-вашему, это там где выкладывают готовые ответы ? А мозг развить хоть немного не хочется ?

[reihtmonbern]

Честно признаться да … ну я не привык к тарелочки просто плохо програмлю в делфи просто хотелось бы увидеть код какой ни будь уже : я нашел несколько вариантов решения
1 способ:

var
dney:integer;
srokdate1,srokdate2:TTimeStamp;
begin
srokdate1:=datetimetotimestamp(now);
srokdate2:=datetimetotimestamp(Ваша дата тип tdatetime);
dney:=srokdate2.Date-srokdate1.Date; //считаем разницу дней
showmessage(inttostr(dney));

2 способ:

uses ..., DateUtils;
....................
procedure TForm1.Button1Click(Sender: TObject);
var
h, m, s, ms : Word;
tm1, tm2 : TDateTime;
begin
tm1 := StrToTime('20:40:00');
tm2 := StrToTime('15:30:00');
if tm1 > tm2 then tm2 := IncDay(tm2);
DecodeTime(tm1-tm2, h, m, s, ms);
ShowMessage(TimeToStr(EncodeTime(h, m, s, ms)));
end;

3 способ:

uses DateUtils, ...;

var NumOfDays:integer;
AnyDay: tdatetime;
...

NumOfDays:=DaysBetween(Today, AnyDay);


.....................................
.............
var
  fromdate, toDate : TDateTime;
begin
  fromDate := EncodeDate(2000, 02, 26);
  toDate   := EncodeDate(2000, 02, 29);
  //edit1.text:=IntToStr(DaysBetween(toDate, fromDate))

edit1.text:=IntToStr(DaysBetween(datetimepicker2.date,datetimepicker1.date))

end;
но я не знаю как изменить их чтобы из DBEdit информация в этот код влезала, может ты мне под скажешь. Буду крайне признателен.

[asmodey1]

Если в DBEdit отображается в привычном виде - в виде строки, то я уже привел функцию - StrToDate().
Вот и получим, например для первого варианта :

dney:=StrToDate(DBEdit2.Text)-StrToDate(DBEdit1.Text); //считаем разницу дней
showmessage(inttostr(dney));

[reihtmonbern]

нет отображается в dbedit как дата 00.00.2011

[asmodey1]

Сообщение от reihtmonbern

нет отображается в dbedit как дата 00.00.2011

Это и есть "отображается в привычном виде - в виде строки"...

[Stilet]

reihtmonbern

Данные берутся из базы?
1) Сделай вычисляемое поле - разницу в датах
2) Какая именно разница нужна? В днях? Секундах? Наночасах?

В целом можно используя DateUtils функцию DaysBetween(Дата начальная, Дата конечная)

[Grag]

Когда-то я вот так делал:

var
    days: Word;

begin
  days:=DaysBetween(Date(),    DMForm.ADO_Control.FieldByName('dateOfCheck').AsDateTime);