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

Как узнать сколько дней в январе например?   Найти похожие ветки 

← →
Kat   (2004-11-01 17:45) [0]

Как узнать сколько дней в январе например
Использую DayOfTheMonth(20.01.2005) Получается 20. Увы не 20 дней в январе.

---

← →
begin...end ©   (2004-11-01 17:47) [1]

> Kat   (01.11.04 17:45)

А причём здесь DayOfTheMonth ?

А в январе всегда 31 день.

---

← →
Тестировщица ©   (2004-11-01 17:49) [2]

DaysInAMonth

---

← →
Andy BitOff ©   (2004-11-01 17:50) [3]

А ты чего не знаешь сколько дней? Если знаешь, так напиши например так:

Function days (Year:integer; Month:integer):Integer;
  begin
    Case month of
      1: Result:=31;
      2: If (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)) then Result:=29 else Result:=28;
      3: Result:=31;
      4: Result:=30;
      5: Result:=31;
      6: Result:=30;
      7: Result:=31;
      8: Result:=31;
      9: Result:=30;
      10: Result:=31;
      11: Result:=30;
      12: Result:=31;
    end;
  end;


---

← →
Kat   (2004-11-01 17:52) [4]

Спасибо!

---

← →
Poirot ©   (2004-11-01 18:02) [5]

Выдержка из SysUtils:

function IsLeapYear(Year: Word): Boolean;

type
 PDayTable = ^TDayTable;
 TDayTable = array[1..12] of Word;

{ The MonthDays array can be used to quickly find the number of
 days in a month:  MonthDays[IsLeapYear(Y), M]      }

const
 MonthDays: array [Boolean] of TDayTable =
   ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
    (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));


LOL помоему:)))))))))))

---

← →
KSergey ©   (2004-11-01 20:10) [6]

> Poirot ©   (01.11.04 18:02) [5]
> LOL помоему:)))))))))))

А пачиму?

---

← →
Юрий Зотов ©   (2004-11-01 21:24) [7]

> KSergey ©   (01.11.04 20:10) [6]

Наверное, потому, что приведенная функция записывается одной простой строчкой:
MonthDays[IsLeapYear(год), месяц]
И незачем "плодить сущности без необходимости".

---

← →
Poirot ©   (2004-11-02 11:29) [8]

>> Юрий Зотов ©   (01.11.04 21:24) [7]
Точна :) Лесипед изобретать все готовы по готовым чертежам:)))

---

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

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



Память: 0.46 MB
Время: 0.023 c