|
|
#1
|
||||
|
||||
Помогите с датами
Как можна попроще от одной даты отнять другую (узнать разницу в днях)?
|
#2
|
||||
|
||||
Читаем справку:
Цитата:
|
#3
|
||||
|
||||
А как можно поставить маску в DBEdit для Paradox ???
|
#4
|
|||
|
|||
Цитата:
|
#5
|
||||
|
||||
А точнее можно!
У меня разница в датах (дни, месяцы и годы)!!! |
#6
|
||||
|
||||
//Нужно подключить:
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; |