[Yurk@]

Как можна попроще от одной даты отнять другую (узнать разницу в днях)?

[Aristarh Dark]

Читаем справку:

DaysBetween function
Returns the number of whole days between two specified TDateTime values.

Unit
DateUtils

Delphi syntax:
function DaysBetween(const ANow, AThen: TDateTime): Integer;

[Yurk@]

А как можно поставить маску в DBEdit для Paradox ???

[Elv]

Сообщение от Yurk@

Как можна попроще от одной даты отнять другую (узнать разницу в днях)?

Отнять от большей даты меньшую.

[Yurk@]

А точнее можно!
У меня разница в датах (дни, месяцы и годы)!!!

[Dux]

//Нужно подключить:
uses DateUtils;

//Чудо процедура:
procedure GetDayMonthYear(const dt1, dt2: TDateTime; var d,m,y: integer);
var ds: Double;
begin
ds:=DaySpan(dt1, dt2); //Количество дней прошедших между двумя датами
y:=Trunc(ds/ApproxDaysPerYear); //Количество полных лет
ds:=ds-y*ApproxDaysPerYear; //Количество дней, за вычетом y-лет
m:=Trunc(ds/ApproxDaysPerMonth); //Количество полных месяцев
d:=Trunc(ds-m*ApproxDaysPerMonth); //Количество дней
end;

//Использовать примерно так:
var dt1, dt2: TDateTime;
d,m, y: integer;
begin
dt1:=StrToDate('31.05.2006');
dt2:=StrToDate('01.02.2008');
GetDayMonthYear(dt1, dt2, d,m,y);
ShowMessage(inttostr(d)+', '+inttostr(m)+', '+inttostr(y));
end;