URL から "-MoIyadayo" を削除してトラックバックを送信してください。
トラックバックは承認後に表示されます。
カレンダー関連のソフトを作る場合、祭日の処理がやっかいです。文化の日のように日付が固定されている祭日は簡単に判断できますが、ややこしいのが いくつかあります。 まずは振替休日。次に春分・秋分の日。そして最近導入された成人の日や体育の日のように移動する祭日（ローミング祭日）としましょうか）です。
普通に画面にカレンダーを表示したい（祝祭日はやっぱ赤にしたいなぁという場合はあきらめもつきますが、業務アプリを作っていて、どうしても祝祭日の処理が必要になる時があります。
例えば、銀行振込処理をするとき、振込指定日を指定します。
「毎月10日で、10日が休みだったら次の営業日」
というような処理をしなければならない時には、祝祭日判定が必須になります。
祝祭日対応日付ライブラリでは、その日が祝祭日であるかどうかを判定できます。また、祝祭日の場合は、なんの祝祭日なのかを文字列で得ることができます。祝祭日の種類は、固定祝祭日・春分秋分・ローミング祭日全てに対応しています。
このライブラリを使えば、祝祭日処理はおてのものです。 サンプルとしてExcelで作った万年カレンダーをつけました。
Function Saijitu(theDate, Optional doyou As Integer = 0) As String
日付を渡すと祝祭日名を返します。
theDate 調べる日付
doyou 土曜日の扱い方 0=祝祭日としない 1=第１を祝祭日とする 2=すべて祝祭日とする 3=第２・第４を祝祭日とする
祝祭日の名称
Function isSaijitu(theDate, Optional doyou As Integer = 0) As Boolean
祝祭日であるかを判断します。
theDate 調べる日付
doyou 土曜日の扱い方 0=祝祭日としない 1=第１を祝祭日とする 2=すべて祝祭日とする 3=第２・第４を祝祭日とする
祝祭日の場合はTrueそうでなければFalse
Function GetActionDate(dActionDate As Date) As Date
実行日を渡すと、実際に実行可能な日を返します。
dActionDate 実行日
実行日が休日の場合は翌営業日を返します。
この間数は週休二日が前提です。
Function OfficeClosed(theDate, Optional doyou As Integer = 0) As Integer
日付を渡すと、その日のステートを返す。
theDate 日付
doyou 土曜日の扱い方 0=祝祭日としない 1=第１を祝祭日とする 2=すべて祝祭日とする 3=第２・第４を祝祭日とする
日付のステート
1 平日
2 土曜日
3 日曜日・祝祭日
Function WeekOfMonth(theDate) As Integer
月のうち第何週かを求める
theDate 日付
月のうち第何週かを数値で返す。
Function ShunbunDate(iYear As Integer) As Date
その年の春分の日を得る
iYear 西暦年
iYearの年の春分の日を日付型で返す。
Function ShuubunDate(iYear As Integer) As Date
その年の秋分の日を得る
iYear 西暦年
iYearの年の秋分の日を日付型で返す。
| 添付 | サイズ |
|---|---|
| ダウンロードはこちら | 18.17 KB |