Easter Day (calculation algorithm)

[maXim]

Hi Everyone,

a simple solution to detect the Easter day:

 

[alfcen]

Ciao MaXim

Wow, your coding required a great deal of concentration.
Here is a shorter version:

Sub DateOfEaster(y)
  Dim c, n, k, i, j, l, m, d
  c = Int(y / 100)
  n = y - 19 * int( y / 19 )
  k = int(( c - 17 ) / 25)
  i = Int(c - int(c / 4) - ( c - k ) / 3 + 19 * n + 15)
  i = i - 30 * int( i / 30 )
  i = i - int(i / 28 ) * ( 1 - int( i / 28 ) * int( 29 / ( i + 1 ) ) * int( ( 21 - n ) / 11 ) )
  j = y + int(y / 4) + i + 2 - c + int(c / 4)
  j = j - 7 * int( j / 7 )
  l = i - j
  m = int(3 + (l + 40 ) / 44)
  d = l + 28 - 31 * int( m / 4 )
  if m = 3 Then Return "March " & d
  if m = 4 Then Return "April " & d
End Sub

Perhaps a later version of B4P will add the "\" operator.

Feel free to use or abuse

Roberto

 

[maXim]

Hi Roberto,

You are right, but my intention was to save memory (3 variables instead of 8 and only two expressions for calculating = -24/-36 bytes in RAM, approximately). However, a similar version I had already published: http://www.b4x.com/forum/showthread.php?p=10661#post10661.

Massimo