Форум: "Основная";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
ВнизВопрос по формату ДАТЫ Найти похожие ветки
← →
Nikkkkk (2003-08-15 18:21) [0]Как определить какое максимально-допустимое календарное число в определенном месяце ???
← →
Nikkkkk (2003-08-15 18:25) [1]P.S. желательно какая-нибудь стандартная процедура Delphi для работы с датой.
Заранее спасибо всем ответившим.
← →
Шёл мимо (2003-08-15 18:29) [2]Месяцев ВСЕГО 12, а "лет" - 2 (обычный и високосный). ИМХО проще написать самому такую функцию (рл времени), чем искать стандартную
← →
Nikkkkk (2003-08-15 18:32) [3]а как определить какой го високосный ???
← →
dez (2003-08-15 18:39) [4]а справку слабо почитать?
IsLeapYear - високосный или нет
и погляди Date/time routines. в 7 дельфях там много чего полезного есть, в том числе и макс число месяца.
← →
Шёл мимо (2003-08-15 18:39) [5]Делишь на 4, если без остатка, то високосный. А задача еще проще. "Годов" всего два (обычный и високосный), а пробдемный месяц один (фераль). В остальных месяцах количество дней фиксировано. Успехов
← →
Шёл мимо (2003-08-15 19:00) [6]Что-то долго молчишь. Попробуй это:
function DayOfMonth(Year, Montn: integer): byte;
begin
Case Montn of
1, 3, 5, 7, 8, 10, 12: Result:= 31;
2: Case (Year DIV 4) of
0: Result:= 29;
else Result:= 28;
end;
else Result:= 30;
end;
end;
← →
Fay (2003-08-15 19:20) [7]Хрен там.
Год високосный если делится на 4.
НО если делится на 100, то нет.
НО если делится на 400, то да.
← →
clickmaker (2003-08-15 19:43) [8]IsLeapYear
← →
Романов Р.В. (2003-08-15 21:47) [9]DayCount := IncNonth(Decodetate(YY,MM,1)) - Decodetate(YY,MM,1);
В шестой дельфе вроде есть стандартная функция. Нажми F1
← →
Просто случайный (2003-08-15 22:04) [10]Странно, кому-то нравятся (или мешают) мои не зарегенные НИКи. Уже не первый регят.
2 Fay (15.08.03 19:20) [7]
Пора бы и немного мыслить (если делится на 400 (100), то и делятся на 4) - посмотри определение високосного года.
2 Романов Р.В. © (15.08.03 21:47) [9]
У меня D5 и на нем я, естессно, все проверил, возможно на D6 это внутренняя функция.
УЖЕ бывший "Шёл мимо"
← →
Романов Р.В. (2003-08-15 22:11) [11]DayCount := IncMonth(EncodeDate(YY,MM,1)) - EncodeDate(YY,MM,1);
← →
Dionys (2003-08-16 00:32) [12]> Просто случайный (15.08.03 22:04) [10]
> 2 Fay (15.08.03 19:20) [7]
> Пора бы и немного мыслить (если делится на 400 (100), то и
> делятся на 4) - посмотри определение високосного года.
Fay привел правильное определение високосного года...
← →
Юрий Зотов (2003-08-16 09:25) [13]Как много сказано...
MonthDays[IsLeapYear(год), номер_месяца]
И все.
> Просто случайный (15.08.03 22:04) [10]
> Пора бы и немного мыслить
Действительно, пора. Помыслите, например, о не високосном 1900 годе.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c