[Gambas-user] How to compute Eastern Day

[Fabien Bodard]

replace by 'iYear as integer'

Public Sub Eastern(iYear As Integer) As Date

2014-12-19 16:57 GMT+01:00 T Lee Davidson <t.lee.davidson at ...626...>:
> 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
> __________
>
> "Artificial Intelligence is no match for natural stupidity."
>
> 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,
>>
>
> ------------------------------------------------------------------------------
> 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
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user



-- 
Fabien Bodard