days_weekSyntaxedays_week(the_week, the_year)
Retourne une liste des jours composant la semaine choisie. Les paramètres sont au format nombre.
Par Fredo d;o)
Exempledays_week(1, 2003)
---> {"lundi 30 décembre 2002", "mardi 31 décembre 2002", "mercredi 1 janvier 2003", "jeudi 2 janvier 2003", "vendredi 3 janvier 2003", "samedi 4 janvier 2003", "dimanche 5 janvier 2003"} Scripton days_week(the_week, the_year)
set first_year to date ("01/01/" & the_year)
set the_day_week to (weekday of first_year) as text
set num_day to ((offset of (text 1 thru 3 of ("" & the_day_week)) in ¬
"MonTueWedThuFriSatSun") div 3)
if num_day > 3 then set num_day to (num_day - 7)
set end_date to (first_year + ((the_week * weeks) - ((num_day + 1) * days)))
set start_date to (end_date - (6 * days))
set seven_days to {}
repeat with loop from 1 to 7
set end of seven_days to (date string of (start_date + ((loop - 1) * days)))
end repeat
return seven_days
end days_week
|