Скачать: CL | DM;

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

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

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

---

← →
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;

---

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

Month := (Month mod 12) + 1

---

← →
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, с учетом года

---

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

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

---

← →
Relaxxx ©   (2004-04-20 15:55) [7]

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

---

← →
Kerk ©   (2004-04-20 15:57) [8]

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

---

← →
Anatoly Podgoretsky ©   (2004-04-20 15:58) [9]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c