AppleScriptの月の最終日と今月の休日を取得する

Question

私は毎月MS Excelのスプレッドシートを生成するAppleScriptを書いています。今月中に何日いるかを知る必要があります。その後、すべての月に渡って、特定の日が平日か休日かを決定します。

私はこのために休暇を保存することを考えています（このウェブからはhttp://kalendar365.cz/statni-svatky/2016をテーブルとしてアクセスし、ローカルにアクセスする）。

私の質問は：

1. は、どのように私は月の最後の日を得るのですか？
2. 今月中にすべての日数を効率的にループし、日曜日、土曜日、または他の場所で指定された日（xlsxスプレッドシートのテキストファイルなど）であるかどうかを判断するにはどうすればよいですか？

Answer 1

pbell's answerは有望であるが、GetLastDay機能は、31よりも少ないを持っているか月間正しく動作しません。日々;アプローチは、月の1日に日付を設定し、その後（おそらく来年に寝返り）月をインクリメントし、1日を減算することに基づいている

# Returns the number of days in the month that the given date falls in. 
# Example: 
#  my GetNumberOfDaysInMonth(current date) 
on GetNumberOfDaysInMonth(aDate) 
    local aDateCopy 
    copy aDate to aDateCopy 
    set day of aDateCopy to 1 
    if month of aDateCopy is December then 
     set year of aDateCopy to ((year of aDateCopy) + 1) 
     set month of aDateCopy to 1 
    else 
     set month of aDateCopy to ((month of aDateCopy) + 1) 
    end if 
    return day of (aDateCopy - 1 * days) 
end GetNumberOfDaysInMonth 

、働く：ここにいることを修正する機能がありますうるう年であっても、すべての日付で正しく表示されます。

Answer 2

以下のスクリプトは、あなたが探している2つのルーチンが含まれていますGetlastDayとisWorkingDayを：

set myDate to current date -- just for example ! 

set N to GetlastDay(myDate) 
log N --> number of days in month of myDate 
set A to IsWorkingday(myDate) 
log A --> true if Monday to Friday, false if Saturday/Sunday 


on GetlastDay(LDate) -- return last day of month of LDate 
copy LDate to L -- to not change LDate 
set L's day to 32 -- = first day of next month 
set L to L - (1 * days) -- last day of month 
return day of L 
end GetlastDay 

on IsWorkingday(LDate) -- true if date is not Saturday or Sunday 
set SD to weekday of LDate 
return (SD is not in {Saturday, Sunday}) 
end IsWorkingday