Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: 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 вся ветка

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.051 c
14-1098544150
Кириешки
2004-10-23 19:09
2004.11.14
Очередное надувательство???


1-1099239142
Piero
2004-10-31 19:12
2004.11.14
Проблемма с собственным классом


11-1082701044
Ajax
2004-04-23 10:17
2004.11.14
Определение даты созания файла


14-1098958755
Digitman
2004-10-28 14:19
2004.11.14
WinEtka как OLE-сервер автоматизации


14-1098780654
Snip
2004-10-26 12:50
2004.11.14
MBR