On Fri, 19 Dec 2014, T Lee Davidson wrote: > On 12/19/2014 08:35 AM, Beno??t Minisini wrote: > > Hi, > > > > Here is a little X-Mas gift, a function to compute Eastern Day: > > > > ---8<-------------------------------------------------------------------- > > > > Public Sub Eastern(Year As Integer) As Date > > > > Dim A, B, C, D, E, F, G As Integer > > > > A = Year Mod 19 + 1 > > B = Year Div 100 + 1 > > C = (3 * B) Div 4 - 12 > > D = (8 * B + 5) Div 25 - 5 > > E = (Year * 5) Div 4 - 10 - C > > F = ((11 * A + 20 + D - C) Mod 30 + 30) Mod 30 > > If F = 24 Or (F = 25 And A > 11) Then Inc F > > G = 44 - F > > If G < 21 Then G = G + 30 > > Return DateAdd(Date(Year, 3, 1), gb.Day, G + 7 - (E + G) Mod 7 - 1) > > > > End > > > > ---8<-------------------------------------------------------------------- > > > > I will put it in the 'gb.util' component. > > > > Regards, > > > > When I execute that, I get "Syntax error. The first argument is not a valid > identifier" on line "Public Sub Eastern(Year As Integer) As Date". > "Year" is a function. > > And did you mean "Easter Day"? > > Lee
Never look a gift horse in the mouth :-) -- "There's an old saying: Don't change anything... ever!" -- Mr. Monk ------------------------------------------------------------------------------ Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server from Actuate! Instantly Supercharge Your Business Reports and Dashboards with Interactivity, Sharing, Native Excel Exports, App Integration & more Get technology previously reserved for billion-dollar corporations, FREE http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk _______________________________________________ Gambas-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
