Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
Как мне узнать какой будет следующий месяц програмно... Найти похожие ветки
← →
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]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:50) [6]А как можно с помощью decode Date витянуть количество месяцей?
← →
Relaxxx © (2004-04-20 15:55) [7]Ой извините тупой вопро, я понял
← →
Relaxxx © (2004-04-20 15:55) [7]Ой извините тупой вопро, я понял
← →
Kerk © (2004-04-20 15:57) [8]Программно следующим может быть любой месяц. :)
← →
Kerk © (2004-04-20 15:57) [8]Программно следующим может быть любой месяц. :)
← →
Anatoly Podgoretsky © (2004-04-20 15:58) [9]январь-февраль = 0, 1 или 2. Сколько нужно?
← →
Anatoly Podgoretsky © (2004-04-20 15:58) [9]январь-февраль = 0, 1 или 2. Сколько нужно?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.034 c
