Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Количество дней в месяце [D6, D7, Win95/98]

Страницы: < 1 2
KSION © (2003-01-23 12:14:00)
Как узнать количество дней в месяце

cult (2003-01-23 15:38:00) [21]
mod, блин, а не div!
Ну я Ваще :)))

А насчет 2002... а он не високосный был? ну тогда 2000 :)

Anatoly Podgoretsky (2003-01-23 15:36:00) [22]
Это выходит, что в феврале 2002 года 29 дней, в могилу.

MBo (2003-01-23 15:31:00) [23]
все хорошо, но это:
if (Year-2002) div 4 = 0 then Result:=Result+1;
Ну блин Ваще

cult (2003-01-23 15:29:00) [24]
Ну блин Ваще, функция пишется самостоятельно за 5 минут и содержать будет строк 10, даже если бы в дельфях встроенной не было. Смешно и грустно...

типа:

function Days(Year,Month:integer):integer;
begin
Result:=-1;
case month of
1,3,5,7,8,10,12:Result:=31;
4,6,9,11:Result:=30;
2:begin
Result:=28;
if (Year-2002) div 4 = 0 then Result:=Result+1;
end;
end;
end;

mike-d (2003-01-23 15:18:00) [25]
uses SysUtils;

...

// Y - год
// M - номер месяца (1..12)
// DayNum - кол-во дней

DayNum := MonthDays[IsLeapYear(Y), M];

Slava (2003-01-23 14:20:00) [26]
Даже, если нет такой функции, то просто берешь первое число следующего месяца и отнимаешь один день.

Separator (2003-01-23 14:02:00) [27]
Unit DateUtils

Anatoly Podgoretsky (2003-01-23 13:42:00) [28]
Переинсталлируй Дельфи

Johnmen (2003-01-23 13:39:00) [29]
Просто удивительная беспомощность !
MBo © тебе сказал, а ты даже не можешь нажать F1...

KSION (2003-01-23 13:21:00) [30]
в какой версии Делфи? в 6-ке нет, такой функции (DaysPerMonth), или какой модуль использовать?

Separator (2003-01-23 12:34:00) [31]
function DaysPerMonth(AYear, AMonth: Integer): Integer;

MBo (2003-01-23 12:24:00) [32]
function DaysInMonth

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »