Solltet jemand von ebenfalls schon mal nach der Anzeige von Kalenderwochen in iCal gesucht, dann muss ich Euch zunächst enttäuschen. Diese werdet Ihr in den Einstellungen von iCal nicht finden. Dank der riessigen Apple Gemeinschaft, gibt es wie immer nützliche Hilfe.

Dieses nachflogende AppleScript erstellt euch die Kalenderwochen in einem bestehenden oder neuem Kalender. Nach aufruf des Scripts werdet ihr nach dem Jahr gefragt. Anschliessend vergebt ihr einen Kalendernamen. Falls kein Kalender mit dem angegebenen Namen existiert, wird ein neuer erstellt. Wenn Sie die Kalenderwochen in einem eigenen Kalender führen, können sie einfach ein- und ausgeblendet werden.

(Im Script Editor anzeigen!)


on run
set theYear to year of (current date)
display dialog "Bitte das Jahr dessen Kalenderwochen angezeigt werden sollen, eingeben:" default answer theYear
set theYear to (text returned of result) as number
set theCalName to "Kalenderwochen"
display dialog "Bitte Namen des Kalenders in dem die Kalenderwochen angezeigt werden sollen, eingeben:" default answer theCalName
set theCalName to (text returned of result)
set theDate to date "1.1.2001"
set year of theDate to theYear
tell application "iCal"
set x to count of (every calendar where title is theCalName)
if x = 0 then make new calendar with properties {title:theCalName}
set theCalendar to first calendar where title is theCalName
end tell
-- first day of first week
set d to theDate - ((weekdayForDate(theDate) + 5) mod 7) * days
repeat until year of d > theYear
tell application "iCal"
set kw to my kalenderwoche(d)
set kwstring to "KW " & kw as string
make new event at the end of events of theCalendar with properties {start date:d, summary:kwstring, allday event:true}
end tell
set d to d + 7 * days
end repeat
end run


Kein ähnlicher Beitrag.