Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

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

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Scripter-Treff
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Folker
•---->
•---->


Anmeldedatum: 11.12.2000
Beiträge: 649
Wohnort: Holsteinische Schweiz

BeitragVerfasst am: 26.05.2007 - 23:11    Titel: Absolut sinnfrei, aber weil gleich Pfingsten ist ;-) ... Antworten mit Zitat

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 & "! Smile"
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
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Scripter-Treff Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter