VPF::Прибавить месяц - Форум программистов

neweraser

Дата 16.2.2010, 23:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

Всем привет!
Нашел что-то похожее тут, но у меня обратная проблема, и решения я там не нашел (или поленился разобраться с IncMonth).
Мне нужно к текущей дате, например 16.02.2010, прибавить месяц и поставить последнее число, т.е. 31.03.2010.
Заранее благодарен за ответы smile

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 17.2.2010, 00:01 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Вот накатал. 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;

--------------------

There's nothing left but silent epitaphs.

Medved7

Дата 24.8.2010, 23:10 (ссылка)

(голосов:2)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.8.2010

Репутация: нет
Всего: нет

Цитата(Данкинг @ 17.2.2010, 00:01

)

Вот накатал.

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

А не проще ли

Код


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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »