Wir hatten dasselbe Problem... wir haben eine Aktionskette, die auf Wunsch über die Kommandozeile gestartet werden kann und folgendes Skript ausführt und das Ergebnis in einen Karteieintrag mit dem Kürzel AU-T (AU-Tage) einträgt, viel Spaß beim Ausprobieren...
-- Benutzerdefinierte Funktion zum Umwandeln von "tt.mm.yyyy" in AppleScript-Datum
on parseDate(datumString)
if datumString is "" then error "Leeres Datum"
set {TID, text item delimiters} to {text item delimiters, "."}
set d to text items of datumString
set text item delimiters to TID
if (count of d) ≠ 3 then error "Ungültiges Datumsformat: " & datumString
set dayPart to item 1 of d
set monthPart to item 2 of d
set yearPart to item 3 of d
set appleDateString to monthPart & "/" & dayPart & "/" & yearPart
try
return date appleDateString
on error
error "Ungültiges Datum: " & datumString
end try
end parseDate
-- Daten aus Formularfeldern (aus tomedo-Textbaustein)
set date1String to "$[formularEintrag AU textfield_AU_vorraussichtlichArbeitsunfaehigBis N]$"
set date2String to "$[formularEintrag AU textfield_AU_arbeitsunfaehigSeit N]$"
try
set date1 to parseDate(date1String)
set date2 to parseDate(date2String)
set secondsBetween to date2 - date1
set daysBetween to (secondsBetween / (60 * 60 * 24)) + 1 -- +1 Tag hinzufügen
display dialog "Krankheitstage zwischen dem " & date1String & " und dem " & date2String & ": " & (daysBetween as integer)
on error errmsg
display dialog "" & errmsg buttons {"OK"} default button "OK"
end try
