Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - 5acredphoenix -

Visual Basic .NET - Даты и время

Все примеры / Даты и время

Определение даты пасхи в определённом году

Автор: 5acredphoenix | добавлено: 06.03.2010, 14:16 | просмотров: 1778 (2+) | комментариев: 0 | рейтинг: *x0
Данный пример показывает, как определить дату празднования православной пасхи в определённом году.

Код

Imports System.Globalization

Public Class Easter

  Private Shared m_jc As JulianCalendar
  Private Shared ReadOnly Property jc() As Calendar
   Get
     If (m_jc Is Nothing) Then m_jc = New JulianCalendar()
     Return m_jc
   End Get
  End Property

  Public Shared Function GetDate() As Date
   Return GetDate(Date.Now.Year)
  End Function

  Public Shared Function GetDate(ByVal year As Integer) As Date
   Dim a = (15 + (year Mod 19) * 19) Mod 30
   Dim b = (2 * (year Mod 4) + 4 * (year Mod 7) + 6 * a + 6) Mod 7
   If (a + b > 10) Then
     Return New Date(year, 4, a + b - 9, jc)
   Else
     Return New Date(year, 3, a + b + 22, jc)
   End If
  End Function

End Class

'// Использование:

Public Module Module1

  Public Sub Main()
   For y = 2000 To 2020
     Console.WriteLine("{0} -- {1}", y, Easter.GetDate(y).ToString("d MMMM"))
   Next
   Console.ReadKey()
  End Sub

End Module
Об авторе

5acredphoenix

Нет информации об авторе...

См. также:
Профиль автора
5acredphoenix
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики