Number of the week in Ical

Question

Howcome the number of the week isn´t shown in Ical????

Answer 1

there's no option for a week view in iCal, but John Maisey wrote this applescript.
paste it in the Script Editor (Applications --> AppleScript --> Script Editor) and run it once...
if your weekview starts on an other day change this line:
set daysText to "MonTueWedThuFriSatSun"
to (example)
set daysText to "SunMonTueWedThuFriSat"
--Copy below this line into Script Editor and click run --
--Annual Week numbers
--John Maisey
--4/2/5
set numberOfWeeks to 1000 -- change as needed
set daysText to "MonTueWedThuFriSatSun"
set aDate to (current date)
set day of aDate to 1
set month of aDate to January
set aDay to weekday of aDate
set weekNo to 1
--Day of week as num. starting with 0
set aDayText to (characters 1 thru 3 of (aDay as text)) as text
set dayOff to ((offset of aDayText in daysText) - 1) / 3 as integer
if dayOff is less than 5 then
set StartDate to aDate - dayOff * days
else
set StartDate to aDate + (7 - dayOff) * days
end if
tell application "iCal"
set newCal to make new calendar at end of calendars with properties {title:"Week No."}
set myCal to (count of every calendar)
end tell
repeat with myCount from 1 to numberOfWeeks
if (month of StartDate is December) and (day of StartDate is greater than 28) then set weekNo to 1
if (month of StartDate is January) and (day of StartDate is less than 5) then set weekNo to 1
set weekText to "Week No. " & weekNo
tell application "iCal"
tell calendar myCal
make new event at end of events with properties {start date:StartDate, allday event:true, summary:weekText}
end tell
end tell
set weekNo to weekNo + 1
set StartDate to StartDate + 7 * days
end repeat
--