Как мне узнать какой будет следующий месяц програмно...

← →
Relaxxx © (2004-04-20 13:16) [0]

Как мне узнать какой будет следующий месяц програмно, есть такая функция может, как NextMonth()???

← →
Relaxxx © (2004-04-20 13:16) [0]

Как мне узнать какой будет следующий месяц програмно, есть такая функция может, как NextMonth()???

← →
MeF88 © (2004-04-20 13:18) [1]

Следующий месяц=Текущий месяц+1...
Если следующий месяц>12 то следующий месяц=1...

← →
MeF88 © (2004-04-20 13:18) [1]

Следующий месяц=Текущий месяц+1...
Если следующий месяц>12 то следующий месяц=1...

← →
Сережа550 © (2004-04-20 13:21) [2]

var
Year,Month,Day:Word;
NextMonth:Word;
begin
DecodeDate(Now,Year,Month,Day);
If Month<>12 then
NextMonth:=Month+1 else
NextMonth:=1;
end;

← →
Сережа550 © (2004-04-20 13:21) [2]

var
Year,Month,Day:Word;
NextMonth:Word;
begin
DecodeDate(Now,Year,Month,Day);
If Month<>12 then
NextMonth:=Month+1 else
NextMonth:=1;
end;

← →
Anatoly Podgoretsky © (2004-04-20 13:26) [3]

Month := (Month mod 12) + 1

← →
Anatoly Podgoretsky © (2004-04-20 13:26) [3]

Month := (Month mod 12) + 1

← →
Relaxxx © (2004-04-20 15:41) [4]

А как узнать количество месяцев между месяцами????

← →
Relaxxx © (2004-04-20 15:41) [4]

А как узнать количество месяцев между месяцами????

← →
Romkin © (2004-04-20 15:46) [5]

incMonth есть в SysUtils. Ничего изобретать не надо :))
Сережа550 © (20.04.04 13:21) [2] А год увеличивать на 1, если 12 месяц не будем? :))
А вот количество месяцев - через DecodeDate, с учетом года

← →
Romkin © (2004-04-20 15:46) [5]

← →
Relaxxx © (2004-04-20 15:50) [6]

А как можно с помощью decode Date витянуть количество месяцей?

← →
Relaxxx © (2004-04-20 15:50) [6]

А как можно с помощью decode Date витянуть количество месяцей?

Ой извините тупой вопро, я понял

Программно следующим может быть любой месяц. :)

январь-февраль = 0, 1 или 2. Сколько нужно?

Как мне узнать какой будет следующий месяц програмно... Найти похожие ветки