Отправляет email-рассылки с помощью сервиса Sendsay

Программирование от Судьи [www.del5.da.ru]

Подписаться Бесплатная новостная рассылка Подписчиков 23 RSS
  Март 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 04-03-2002

Автор
Sudiya

Статистика

23 подписчиков
0 за неделю
←   Все выпуски   →

Программирование от Судьи [www.del5.da.ru] Выпуск от 10/03/2002 года


Служба Рассылок Subscribe.Ru

- Программирование от Судьи - 

*******************************************

* Основное месторасположение [http://del5.da.ru] *

* Зеркало сайта [http://del50.by.ru]                            *

*******************************************

 

Доброго времени суток, господа коллеги!

**************************************

Сегодня в номере пойдет речь о вычислении даты пасхи. Я нашел алгоритм для осуществления...

 

================================================================================

// Данный алгоритм не является моим. Авторство полностью сохранено! 

function TtheCalendar.CalcEaster:String;
var B,D,E,Q:Integer;

GF:String;
begin
B:=225-11*(Year Mod 19);
D:=((B-21)Mod 30)+21;
If D>48 then Dec(D);
E:=(Year+(Year Div 4)+D+1)Mod 7;
Q:=D+7-E;
If Q<32 then begin
If ShortDateFormat[1]='d' then
Result:=IntToStr(Q)+'/3/'+IntToStr(Year)
else Result:='3/'+IntToStr(Q)+'/'+IntToStr(Year);
end
else begin
If ShortDateFormat[1]='d' then
Result:=IntToStr(Q-31)+'/4/'+IntToStr(Year)
else Result:='4/'+IntToStr(Q-31)+'/'+IntToStr(Year);
end;
{вычисление страстной пятницы}
If Q<32 then begin
If ShortDateFormat[1]='d' then GF:=IntToStr(Q-2)+'/3/'+IntToStr(Year)
else GF:='3/'+IntToStr(Q-2)+'/'+IntToStr(Year);
end
else begin
If ShortDateFormat[1]='d' then
GF:=IntToStr(Q-31-2)+'/4/'+IntToStr(Year)
else GF:='4/'+IntToStr(Q-31-2)+'/'+IntToStr(Year);
end;

end;

================================================================================

 

Новости рассылки:

-----------------------

- Наша рассылка выходит три раза в неделю, точные дни пока не определены

- В каждой рассылке будет по анекдоту

 

 

Новости нашего сайта:

[10.03.02] - Добавлен раздел связанный с ориентированием в наших архивах.

Ссылки на дружественные сайты:

- www.sourses.ru - Исходные тексты программ, огромное кол-во!

На последок:

- Анекдоты (компьютерщики)

- Дорогой, ты кого больше любишь? Меня или эту дурацкую штуку, 
за которой ты ПРОВОДИШЬ ЦЕЛЫЙ ДЕНЬ, СВОЛОЧЬ!!!!!
- Ну, киса, как ты можешь сравнивать неодушевлённый предмет 
с КОМПЬЮТЕРОМ!
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное