Вниз
Скачать: CL | DM;

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

← →
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 вся ветка

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



Память: 0.48 MB
Время: 0.011 c
1-86378
yong
2003-12-15 14:48
2003.12.26
Почтовая программа


3-86308
Костя
2003-12-02 10:37
2003.12.26
Немогу сделать restore БД - выдаётся ошибка


7-86579
DelphiNew
2003-10-20 14:55
2003.12.26
Работа с весами


14-86509
Думкин
2003-12-05 05:15
2003.12.26
С днем рождения! 5 декабря.


11-86328
Юрий
2003-04-11 15:55
2003.12.26
Application - свойства и методы?




   Наверх