вычисление новой даты

← →
denis24 (2003-07-18 10:58) [0]

Как вычислить новую дату если есть начальная и кол-во месяцев?

← →
dataMaster (2003-07-18 11:03) [1]

function IncDate(FromDate:TDate; Incrementation:Integer):TDate;
{
Параиетры:
FromDate - стартовая дата
Incrementation - кол-во прибавляемых дней
}
var
d1 : TTimeStamp;
begin
d1:=DateTimeToTimeStamp(FromDate);
Inc(d1.Date, Incrementation);
Result:= TimeStampToDateTime(d1);
end;

← →
Иксик (2003-07-18 11:09) [2]

Человек же говорит:

> если есть начальная и кол-во месяцев?

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;

← →
dataMaster (2003-07-18 11:12) [3]

2Иксик
Если есть месяцы, то можно и дни посчитать :)

← →
Иксик (2003-07-18 11:14) [4]

← →
Reindeer Moss Eater (2003-07-18 11:18) [5]

Как вычислить новую дату если есть начальная и кол-во месяцев?

NewDate:=Date + 1;

← →
Иксик (2003-07-18 11:26) [6]

> Reindeer Moss Eater

Извиняюсь, а где здесь кол-во месяцев?
Если просто прибавлять число, то увеличиваются дни.

← →
Reindeer Moss Eater (2003-07-18 11:29) [7]

Иксик © (18.07.03 11:09)
Человек же говорит:

> если есть начальная и кол-во месяцев?

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;

А с чего ты решил, что новая дата должна быть тем же числом спустя это количество месяцев?????
Где про это сказано в вопросе.

У меня есть количество месяцев и я вычислил новую дату. Вопрос решен.

← →
dataMaster (2003-07-18 11:33) [8]

Я согласен с Reindeer Moss Eater (18.07.03 11:29). Если сегодня 31 января и мы прибавим месяц, получается 28 февраля. Все правильно.

← →
Anatoly Podgoretsky (2003-07-18 11:33) [9]

31 января + 1 месяц = ?
10 февраля + 1 месяц = ?
28 февраля + 1 месяц = ?

← →
denis24 (2003-07-18 11:38) [10]

incmonth
спсб

← →
Reindeer Moss Eater (2003-07-18 11:39) [11]

Конец Света + 1 месяц = ?
:)

← →
Иксик (2003-07-18 11:45) [12]

old:=strtodatetime("21.12.2002");
new:=old+1;
showmessage(datetimetostr(new))

Получится 22.12.2002, а не 21.01.2003

А incmonth даст правильный результат.

← →
Reindeer Moss Eater (2003-07-18 11:49) [13]

Получится 22.12.2002, а не 21.01.2003
А incmonth даст правильный результат.

И чем он правильнее?

← →
Иксик (2003-07-18 11:56) [14]

Тем, что месяц прибавляет, а не один день!
У вас что тоже жара?

← →
Reindeer Moss Eater (2003-07-18 11:57) [15]

Еще раз: где сказано, что надо ПРИБАВЛЯТЬ МЕСЯЦ ????

← →
Иксик (2003-07-18 11:59) [16]

> denis24 (18.07.03 10:58)
> Как вычислить новую дату если есть начальная и кол-во месяцев?

← →
Reindeer Moss Eater (2003-07-18 12:04) [17]

Ну и?
Где сказано, как кол-во месяцев участвует в расчете?

← →
Иксик (2003-07-18 12:06) [18]

Словоблудствуем? Ну-ну...

← →
Reindeer Moss Eater (2003-07-18 12:10) [19]

Гадаем без кофейной гущи?

вычисление новой даты Найти похожие ветки