Скачать: CL | DM;

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;

---

← →
Юрий Зотов ©   (2003-05-19 14:55) [9]

> 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;

---

← →
Юрий Зотов ©   (2003-05-20 13:54) [11]

> dtrn (20.05.03 12:51)

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c