Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Прибавить месяц


Автор: neweraser 16.2.2010, 23:25
Всем привет!
Нашел что-то похожее http://forum.vingrad.ru/topic-171760.html, но у меня обратная проблема, и решения я там не нашел (или поленился разобраться с IncMonth).
Мне нужно к текущей дате, например 16.02.2010, прибавить месяц и поставить последнее число, т.е. 31.03.2010.
Заранее благодарен за ответы smile

Автор: Данкинг 17.2.2010, 00:01
Вот накатал. smile 
Код

function get(ddd:tdatetime):tdatetime;
var date_new:tdatetime;
year,month,day:word;
begin
 date_new:=incmonth(ddd);
 DecodeDate(date_new,year,month,day);
 result:=encodedate(year,month,MonthDays[isleapyear(year),month]);
end;

Автор: Medved7 24.8.2010, 23:10
Цитата(Данкинг @  17.2.2010,  00:01 Найти цитируемый пост)
Вот накатал.  

Действительно накатал. 

А не проще ли 
Код

EndOfTheMonth(IncMonth(Дата, Кол-во месяцев))

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)