Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
ВнизРазница между датами Найти похожие ветки
← →
Shirson (2002-03-15 09:56) [5]Легко :)
var TD:Tdatetime;
Y,M,D:Word;
begin
TD:=DateTimePicker1.Date;
D:=0;
while MonthsBetween(DateTimePicker1.Date,DateTimePicker2.Date) <>
MonthsBetween(DateTimePicker1.Date,td) do
begin
inc(d);
TD:=IncDay(TD);
end;
Y:=YearsBetween(DateTimePicker1.Date,DateTimePicker2.Date);
M:=MonthsBetween(DateTimePicker1.Date,DateTimePicker2.Date)-Y*12;
D:=DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date)-D;
Edit1.Text:= inttostr(D)+"
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c