2012年は休日が少ない

来年のスケジュールを確認していて気になった点が。2012年は休みが少ないんじゃないか?
そこで年別の休日の数を数えてみました。
・週休二日
・祝日の振替休日を反映
という条件でカウントすると下に示す通りになりました。

祝日は現在は15日です。これが土日とどのように重なるかが問題です。
日曜日と重なると振替休日になりますが土曜日と重なると減ります。
実際に数えると休日の数は116日から120日のいずれかになります。
2012年は116日で最も少ないパターンです。
これは土曜日と重なる祝日が4日もあるのが主な原因でしょう。

なお春分の日、秋分の日があるため、「13日の金曜日」のような規則性(28年周期)はないようです。 (さらに…)

PHPを使ってGoogleカレンダーにイベントを追加する

GoogleカレンダーがIE6で使えなくなりました。使えないことはないのですがレイアウトがグチャグチャ。
そこで予定を追加する別の方法を探してみました。 (さらに…)

Googleカレンダー、インポート用CSVを作成するマクロ

Excelシートに作ったGoogleカレンダー用のデータをCSVに変換するマクロです。
出力されたCSVを使ってカレンダーにインポートすることができます。

Excelシート

Excelシートは次のように作ります。
日付と時刻はExcel形式(シリアル値)にします。

A B C D E F
1 Subject Start Date Start Time End Date End Time Location
2 南アフリカ対メキシコ 2010/06/11 23:00 2010/06/12 01:00 ヨハネスブルク
3 ウルグアイ対フランス 2010/06/12 03:30 2010/06/12 05:30 ケープタウン
4 アルゼンチン対ナイジェリア 2010/06/12 23:00 2010/06/13 01:00 ヨハネスブルク

マクロ

アクティブシートに対して処理されます。
日付と時刻の行はFormat関数で整形されます。
カンマ付テキスト(UTF-8)に変換され、指定したファイル名で保存されます。

Sub Googleカレンダーインポート用CSV出力()
    fnsave = Application.GetSaveAsFilename( _
        "import.csv", "CSV(*.csv),*.csv")
    If fnsave = False Then Exit Sub
    mytext = ""
    i = 1
    Do
        j = 1
        Do
            If Right(Cells(1, j), 4) = "Date" Then
                temp = Format(Cells(i, j), "yyyy/mm/dd")
            ElseIf Right(Cells(1, j), 4) = "Time" Then
                temp = Format(Cells(i, j), "hh:mm")
            Else
                temp = Cells(i, j)
            End If
            mytext = mytext & temp & ","
            j = j + 1
        Loop Until Cells(i, j) = ""
        mytext = Left(mytext, Len(mytext) - 1) & vbCrLf
        i = i + 1
    Loop Until Cells(i, 1) = ""
    mytext = Left(mytext, Len(mytext) - Len(vbCrLf))
   
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Charset = "utf-8"
        .Open
        .WriteText mytext, 1
        .SaveToFile fnsave, 2
        .Close
    End With
End Sub

実行結果

Subject,Start Date,Start Time,End Date,End Time,Location
南アフリカ対メキシコ,2010/06/11,23:00,2010/06/12,01:00,ヨハネスブルク
ウルグアイ対フランス,2010/06/12,03:30,2010/06/12,05:30,ケープタウン
アルゼンチン対ナイジェリア,2010/06/12,23:00,2010/06/13,01:00,ヨハネスブルク

Googleカレンダーのインポートで「終日」を使う

以前、GoogleカレンダーにCSVをインポートする方法を書きましたが、今回は「終日」の予定をインポートしてみます。
必要な項目は次の3個です。

  • Subject
  • Start Date
  • All Day Event

「All Day Event」に「TRUE」とセットすることで、予定が「終日」となります。

Subject,Start Date,All Day Event
休暇,2011/4/16,TRUE

任天堂の卓上カレンダー、2011年版

昼間、「今年はまだ任天堂のカレンダーが届かないなあ。今年からないのかなあ」などと考えていました。
帰宅すると届いていました。
カードを差し替える方式の卓上カレンダー。
私はリング式の方が好きなのですが。

「金土日」が5回ある月

今月(2010年10月)は金曜日、土曜日、日曜日が5回あります。
三日続きの週末が他の月よりも多いということになります。
「だから何だ」と言われるかもしれませんが。 (さらに…)

「13日の金曜日」の規則性

先ほど 「13日の金曜日」一覧を載せましたが、これには規則性があります。 (さらに…)

「13日の金曜日」一覧

2000年から2099年までの「13日の金曜日」をすべて挙げてみます。 (さらに…)

新しい記事

タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報