Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Вниз

Разница между датами   Найти похожие ветки 

← →
Shirson   (2002-03-15 07:26) [3]

Дэлфи (шестая точно) обладает весьма приятным набором инструментов по издевательству над датами. Раздел в хелпе называется date/time routines. Их там ОЧЕНЬ много.
А делать нужно так:
Из разницы, которая у тебя ложится в едит, вычленяешь год, месяц, день:

var TD:Tdatetime;
begin
TD:=DateToStr(DateTimePicker2.Date - DateTimePicker1.Date);
form6.Edit1.Text:=
inttostr(DayOf(TD))+"дней "+
inttostr(MonhtOf(TD))+"месяцев "+
inttostr(YearOf(TD))+"лет";
end;

Вот собственно и все. Дальше уж сам причёсывай прогу, если нужно. Например, чтобы правильно писала "день/дней", "месяц/месяцев", "год/лет". Делов на пару-тройку строчек кода.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c