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

Вниз

Кол-во дней в месяце   Найти похожие ветки 

 
Lexxxx   (2003-12-15 10:08) [0]

Люди подскажите как узнать кол-во дней в месяце???


 
Anatoly Podgoretsky   (2003-12-15 10:10) [1]

30


 
TUser   (2003-12-15 10:12) [2]

((mesac mod 7) mod 2)+30 - Это все, кроме февраля. А февраль - поищи алгоритм определения високосности года (недавно на форуме это обсуждалось).


 
wal   (2003-12-15 10:13) [3]

31


 
Silver Alex   (2003-12-15 10:14) [4]

подлючи модуль DateUtils функция DaysInMonth


 
Кщд   (2003-12-15 10:47) [5]

TUser © (15.12.03 10:12) [2]
алгоритм високосности?


 
Ega23   (2003-12-15 10:49) [6]

IncMonth(aDateTime)-aDateTime


 
lexxxx   (2003-12-15 10:51) [7]

Всем спасибо подключил DateUtils функция вычисляет


 
TUser   (2003-12-15 12:03) [8]


> алгоритм високосности?

Ну, там что-то типа такого. Високосным является каждый год, который делится на 4, кроме тех, которые делятся на 400, кроме тех, которые делятся на 2000.
((year mod 4) = 0) and ((not ((year mod 400)=0)) or ((yaer mod 2000) = 0))
Вот такое редкое событие недавно случилось - год нацело разделился на 2000.


 
Anatoly Podgoretsky   (2003-12-15 12:09) [9]

Нечто новое в теории вычисления високосных лет, на нобелевку тянет.


 
Silver Alex   (2003-12-15 12:12) [10]


> алгоритм високосности?

SysUtils.IsLeapYear


 
TUser   (2003-12-15 13:25) [11]

2 Anatoly Podgoretsky
В этом году уже опоздал. А если честно - действительно ошибся. Невисокосными являются года, которые не далятся на 4, или делятся на 100 или делятся на 100, но еще делятся и на 400. А вот те, которые на 2000 делятся - надо вспомнить, был ли 2000 год високосным.


 
Anatoly Podgoretsky   (2003-12-15 13:31) [12]

2000 високосный, 4000 не високосный


 
Кщд   (2003-12-15 13:34) [13]

Silver Alex © (15.12.03 12:12) [10]
собственно, меня слово алгоритм порадовало
вот и усё :)

TUser © (15.12.03 13:25) [11]
я понял, что я ничего в математике не понимаю.
оставляю эту сложную науку Вам.
успехов. :)


 
Плохиш_   (2003-12-15 13:46) [14]

>Anatoly Podgoretsky © (15.12.03 13:31) [12]

> 4000 не високосный

с чего бы это?


 
Anatoly Podgoretsky   (2003-12-15 13:51) [15]

Давным давно видел формулу в справочнике, там кроме 400 фигурировало еще и 4000, в стандартных функциях так далеко не заглядывают.


 
Плохиш_   (2003-12-15 14:01) [16]

>Anatoly Podgoretsky © (15.12.03 13:51) [15]

Хм, бум искать :-)


 
Anatoly Podgoretsky   (2003-12-15 14:04) [17]

Справочник был 60 годов, да в принципе и не важно, текушии алгоритмы применимы вплоть до 3999 года, большинству больше и не надо.
Этот интервал связан с тем, что за 3800 лет ошибка составляет 1 день, по отношению к 2000 году.

Правда утверждать особо не буду, поскольку эту формулу видел только в одном старом справочнике алгоритмов.


 
Плохиш_   (2003-12-15 14:35) [18]

Ха, нашёл ;-)

http://en2.wikipedia.org/wiki/Leap_year

Папа не принял 4000 :-)


 
Anatoly Podgoretsky   (2003-12-15 14:50) [19]

Но обещал вернуться к этой проблеме, когда она станет актуальной


 
Плохиш_   (2003-12-15 15:04) [20]

:-)



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

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

Наверх





Память: 0.48 MB
Время: 0.008 c
3-86306
Chery
2003-12-01 12:50
2003.12.26
Подключить к форме хранимой в Dll таблицу, Table - на глав. форме


14-86519
NeyroSpace
2003-12-03 11:54
2003.12.26
Проапгрейтился... до коматоза


3-86315
alless
2003-12-01 11:08
2003.12.26
Как узнать что поменялся Width в DBGrid?


1-86450
lucky4me
2003-12-12 11:17
2003.12.26
ООП в Object Pascal


1-86414
WDevil
2003-12-15 22:55
2003.12.26
Как сделать hotkey с мышкой ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский