Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Вниз

Время   Найти похожие ветки 

 
Juli   (2002-05-16 11:01) [0]

Подскажите подалуйста, как можно определить количество дней месяца. Но не так: if month=1 to col_day=31 и т.д.


 
Johnmen   (2002-05-16 11:12) [1]

DaysInMonth


 
Игорь Шевченко   (2002-05-16 11:13) [2]

День добрый,

function IsLeapYear(AYear: Integer): Boolean;
begin
Result := (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0));
end;

function DaysPerMonth(AYear, AMonth: Integer): Integer;
const
DaysInMonth: array[1..12] of Integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysInMonth[AMonth];
if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result); { leap-year Feb is special }
end;

Функции из RxLib

С уважением,


 
Johnmen   (2002-05-16 11:23) [3]

>Игорь Шевченко ©
Год, кратный 2000, невисокосный...что не учтено...


 
Donal_Graeme   (2002-05-16 11:28) [4]

почему это невисокосный??? можно цитату из официальных источников? :-)


 
Игорь Шевченко   (2002-05-16 11:51) [5]

Johnmen © (16.05.02 11:23)


> Год, кратный 2000, невисокосный...что не учтено...


Это вам, мягко говоря, кажется... :-)

С уважением,


 
Johnmen   (2002-05-16 11:52) [6]

>Donal_Graeme : Можно, но не сегодня...:o)


 
Juli   (2002-05-16 11:57) [7]

СПАСИБО



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

Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
3-88373
ЕленаКв
2002-04-30 07:42
2002.05.27
В таблице есть поле summa в котором данные стрингового типа,


3-88372
mik
2002-04-30 12:00
2002.05.27
Почему у меня создаются файлы Del1.MB и _QSLQ000.DBF


1-88438
Den_vrtz
2002-05-17 09:10
2002.05.27
Вопрос про глючный QuickReport.


3-88374
Maloy
2002-05-03 00:22
2002.05.27
Неподдерживаемая операция


1-88450
PREDATOR*AP
2002-05-17 16:22
2002.05.27
Добовление новой формы к проекту......





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский