I like Colin's better :)
At 6:00 PM +0100 6/6/01, dietrich roland pehlke wrote:
>hello gene
>
>maybe the following function will help you a littel bit:
>
>on Get_Day_of_the_Week theYear, theMonth, theDay, theLanguage
> is_leap_year = #false
> dL = [31,28,31,30,31,30,31,31,30,31,30,31]
> if (theYear mod 4 = 0) then
> if ( (theYear mod 100 > 0) or (theYear mod 400 = 0) ) then
> dL[2] = 29
> is_leap_year = #true
> end if
> end if
> case (theLanguage) of
> #gb:
> wDayList = [ "Sunday", "Monday", "Tuesday", "Wednesday",
>"Thursday", "Friday", "Saturday"]
> #d:
> wDayList = [ "Sonntag", "Montag", "Dienstag", "Mittwoch",
>"Donnerstag", "Freitag", "Samstag"]
> end case
> d = theDay
> -- test the day:
> if ( d > dl[theMonth] ) then
> day_exist = #false
> else
> day_exist = #true
> end if
>
> m = theMonth -1
> repeat with i = 1 to m
> d = d + dl[i]
> end repeat
>
> j = theYear - 1
> t = j + (j/4) - (j/100) + (j/400) + d
>
> x = (t mod 7) +1
>
> return [#day_exist: day_exist, #day: getAt(wDayList, x),
>#leap_year: is_leap_year]
>end
>
>ex.:
>
>put Get_Day_of_the_Week (1966, 1, 3, #d)
>-- [#day_exist: #true, #day: "Montag", #leap_year: #false]
>
>regards
>dietrich roland
>
>[To remove yourself from this list, or to change to digest mode, go to
>http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
>email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
>Lingo-L is for learning and helping with programming Lingo. Thanks!]
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
