' Evaluate the Easter date for a given year' Example: MessageBox.Show(EasterDate(2003).ToLongDateString())Function EasterDate(ByVal year As Integer) As DateTime Dim g, c, h, i, j, l, month, day As Integer g = year Mod 19 c = year 100 h = ((c - (c 4) - ((8 * c + 13) 25) + (19 * g) + 15) Mod 30) i = h - ((h 28) * (1 - (h 28) * (29 (h + 1)) * ((21 - g) 11))) j = ((year + (year 4) + i + 2 - c + (c 4)) Mod 7) l = i - j month = 3 + ((l + 40) 44) day = l + 28 - (31 * (month 4)) Return New DateTime(year, month, day)End Function


Westinghouse Builds Polish Power Plant
Westinghouse Electric Company and Bechtel have come together to establish a formal partnership in order to design and construct Poland’s inaugural nuclear power plant at