「BakuJAN活用例」の解･体･親･書

親愛なる貴方のために・・・え？誰？

10.いろいろな時間の計算

　ワークシートを使って罫線を利用したスケジュール表を作る方も多いと思います。Excelのワークシートを使うと、Wordを使用するよりも簡単に思い描いた表のフォームを作ることができます。

• 　★　 ワークシートで、スケジュールカレンダーをつくる
  　VBAマクロを使わず、カレンダーのカタチ（一週間が一行）にするため、その月の「１日」が何曜日から始まるのかを関数の組み合わせで求めるのがポイントです。
  　
• 　★　 ユーザーフォームで、万年カレンダーをつくる
  　ユーザーフォームを使用 = VBAマクロを使用すると、もう少し進んだことができるようになります。曜日については調べる関数が既にExcelに用意されていますが、祝祭日や振替休日については別の計算と処理が必要です。
  Private Sub Calen_ADD() TD_flg = 0: TO_flg = 0 For i = 1 To 37 With Me.Controls.Item("Lbl_C" & Right("0" & i, 2)) .Caption = "" .BackColor = Lbl_C38.BackColor End With Next For i = 1 To DateDiff("d", Edt_CYY.Value & "/" & Edt_CMM.Value & "/1", _ DateAdd("m", 1, Edt_CYY.Value & "/" & Edt_CMM.Value & "/1")) With Me.Controls.Item("Lbl_C" & Right("0" & Weekday(Edt_CYY.Value _ & "/" & Edt_CMM.Value & "/" & 1) + i - 1, 2)) .Caption = i '「�@」日の曜日判定 TD_flg = Weekday(Edt_CYY.Value & "/" & Edt_CMM.Value & "/" & i) '「�@」日の祝祭日判定【 '元日・建国記念の日・春分の日・みどりの日・憲法記念日・国民の休日・ 'こどもの日・秋分の日・文化の日・勤労感謝の日・天皇誕生日 】 If Edt_CMM.Value = 1 And i = 1 Or Edt_CMM.Value = 2 And i = 11 _ Or Edt_CMM.Value = 3 And i = Int(20.8431 + 0.242194 _ * (Edt_CYY.Value - 1980) - Int((Edt_CYY.Value - 1980) / 4)) _ Or Edt_CMM.Value = 4 And i = 29 Or Edt_CMM.Value = 5 And i = 3 _ Or Edt_CMM.Value = 5 And i = 4 Or Edt_CMM.Value = 5 And i = 5 _ Or Edt_CMM.Value = 9 And i = Int(23.2488 + 0.242194 _ * (Edt_CYY.Value - 1980) - Int((Edt_CYY.Value - 1980) / 4)) _ Or Edt_CMM.Value = 11 And i = 3 Or Edt_CMM.Value = 11 And i = 23 _ Or Edt_CMM.Value = 12 And i = 23 Then TO_flg = 1 End If 'TD_flgの値「日:1,月:2,火:3,水:4,木:5,金:6,土7」 If TD_flg = 1 And TO_flg = 0 Or TD_flg = 1 And TO_flg = 1 Then '日曜・祝祭日・振替休日 .ForeColor = RGB(255, 0, 0) ElseIf TD_flg <> 1 And TO_flg = 1 Or TD_flg = 7 And TO_flg = 1 Then '前日が祝祭日の月曜 .ForeColor = RGB(255, 0, 0) TO_flg = 0 ElseIf TD_flg = 7 And TO_flg = 0 Then '土曜で祝祭日以外 .ForeColor = RGB(0, 0, 255) Else .ForeColor = RGB(0, 0, 0) End If End With Next If Edt_CMM.Value = 1 Or Edt_CMM.Value = 10 Then If Lbl_C09.Caption >= 8 Then Lbl_C09.ForeColor = RGB(255, 0, 0) Else Lbl_C16.ForeColor = RGB(255, 0, 0) End If End If If Edt_CMM.Value = 7 Or Edt_CMM.Value = 9 Then If Lbl_C16.Caption >= 15 Then Lbl_C16.ForeColor = RGB(255, 0, 0) Else Lbl_C23.ForeColor = RGB(255, 0, 0) End If End If End Sub

番外.10

　WEBサイト上でも、カレンダーやスケジュール表が使えると便利なものです。クライアントサイドで動くJavaScriptや、サーバーサイドのCGI、PHPやASPなど、言語上は様々なカタチを使っていますが、求められていることは、ある程度共通しています。

左下にあるのは原作Scrap Dir.さんのJavaScriptで、右下のカレンダーはスケジュール管理や誕生日CGIとの連携用として改造した外部JavaScriptです。本日を基準に前後合わせて５年と12ヶ月を画面変移やフレームを使わないで行えます。

　このカレンダーをCGIに連携させると便利でしょうか。下記リンクでサンプルが見れます。
スケジュールカレンダー Perl CGI & JavaScript - kukio daialy -　現在試験運用中です。