DateTime

← →
Grey_g © (2003-05-17 10:30) [0]

Подскажите, как узнать сколько дней в месяце???

← →
Malder © (2003-05-17 10:49) [1]

Это очень просто.

В январе - 31
В феврале - если високосный, то 29, а так 28
В марте - 31
В апреле - 30
В мае - 31
В июне -30
В июле - 31
В августе -31
В сентябре -30
В октябре - 31
В ноябре - 30
В декабре - 31

В следующем году ситуация повторятеся, см. выше

← →
Шаман © (2003-05-17 11:08) [2]

2Malder

IncMonth(Date,1)-Date
грубо, но более эффективно.

← →
Grey_g © (2003-05-17 11:10) [3]

Да.... чё-то я ступил... пойду лучше пива попью...

← →
SkyN © (2003-05-17 11:24) [4]

вообщето есть функция DayOf(const AValue: TDateTime): Word;
и будет тебе количество дней :)

← →
Malder © (2003-05-17 12:28) [5]

А где находится эта функция DayOf ?

← →
Юрий Зотов © (2003-05-17 12:51) [6]

Филиал форума "потрепаться"...

MonthDays[IsLeapYear(Year), Month]

Детали см. в SysUtils.

← →
Аноним (2003-05-17 21:45) [7]

DaysInMonth(const AValue: TDateTime): Word;
Unit DateUtils

← →
dtrn (2003-05-19 11:38) [8]

function MaxDayOfMonth(Year,Month:word):integer;
begin
Result:=PDayTable(
@MonthDays[IsLeapYear(Year)])^[Month];
end;

function MaxDayOfMonth(Date:TDateTime):integer;Overload;
var
Year,Month,Day:Word;
begin
DecodeDate(Date,Year,Month,Day);
Result:=MaxDayOfMonth(Year,Month);
end;

> dtrn (19.05.03 11:38)

А указатели-то зачем?

← →
dtrn (2003-05-20 12:51) [10]

PDayTable=^TDayTable
Справка SysUtils

Если не хочеш указатели

function MaxDayOfMonth(Year,Month:word):integer;
begin
Result:=TDayTable(
MonthDays[IsLeapYear(Year)])[Month];
end;

> dtrn (20.05.03 12:51)

1. > Справка SysUtils
Спасибо за совет, непременно посмотрю. А то без справки ну просто никак невозможно понять, что такое PDayTable. Правда, я спрашивал о другом - а зачем он в этой задаче вообще нужен? Действительно интересно, самостоятельно понять этого не могу.

2. > function MaxDayOfMonth(Year,Month:word):integer;
а). Зачем приведение типа к самому себе? Тоже не могу понять.
б). Зачем нужна функция с телом в одну простейшую строку?
в). Вы, когда даете ответ, предыдущие ответы читаете?

DateTime Найти похожие ветки