Absolut sinnfrei, aber weil gleich Pfingsten ist ;-) ...

[Folker]

in Color zur besseren Lesbarkeit ...

copy (current date) to theDate
get_FTSource(theDate, year of theDate) + 49 * days
set theDlgText to "Die Entsendung des Heiligen Geistes an die Apostel " & ((year of theDate) as text) & " am " & date string of theDate & "! "
set temp to (display dialog theDlgText buttons {"Heiliger", "Geist!"} default button 2 with title ("Pfingstfest " & (year of theDate) as text) with icon note)
if button returned of temp is "Heiliger" then
   say "hallalooia"
else
   say "hoo"
end if

on get_FTSource(theDate, theYear)
   set (year of theDate) to theYear
   set (month of theDate) to March
   set k to (theYear div 100)
   set m to (15 + ((3 * k + 3) div 4) - ((8 * k + 13) div 25))
   set s to (2 - ((3 * k + 3) div 4))
   set a to (theYear mod 19)
   set d to ((19 * a + m) mod 30)
   set r to ((d div 29) + ((d div 28) - (d div 29)) * (a div 11))
   set OG to (21 + d - r)
   set sz to (7 - (theYear + (theYear div 4) + s) mod 7)
   set OE to (7 - ((OG - sz) mod 7))
   set day of theDate to (OE + OG)
   return theDate
end get_FTSource

_________________
Gruß,
Folker Brandt
=============================
Systemberatung · Datenbanken · Webdesign