Главная страница
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.028 c
9-1070321522
MrAngel
2003-12-02 02:32
2004.04.11
Тайна вокруг координаты W


4-1079696238
Falendysh
2004-03-19 14:37
2004.04.11
OLE Container Problem


6-1079090068
webmaster
2004-03-12 14:14
2004.04.11
HTML форма ??????


3-1081831117
ANB
2004-04-13 08:38
2004.04.11
вычисляемые поля в запросе


14-1079814053
Andy BitOff
2004-03-20 23:20
2004.04.11
А чего случилось??????