Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: 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 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.04 c
1-1082201734
тракторист
2004-04-17 15:35
2004.04.11
Помогите с FastReport


3-1081522034
Александр Крючков
2004-04-09 18:47
2004.04.11
Передача свойства Data по частям


9-1070907249
varox
2003-12-08 21:14
2004.04.11
Помогите с DirectX OpenGl пожалуйста!!!


3-1081862519
andruxin
2004-04-13 17:21
2004.04.11
Проблема SQL-запроса на разных ОС.


1-1080198345
Yevgeniy
2004-03-25 10:05
2004.04.11
Как добавить картинку в компонент