|
2000年からの成人の日と体育の日(曜日指定の祭日)に対応しています。 プログラムソースを公開しています。 1.CurrentDb()のフォルダに Ls休日.txt が必要です。 Ls休日.txtを修正すれば休日を追加できます。 2.Function LsHolChk(dtDate As Date, Optional msgflg) As String 銀行休業日は 祝、休、土、日 のいずれかを返します。msgflgに何か指定すると休業日にメッセージを表示します。 銀行休業日以外は ""
を返します。 3.VBでも変更せずに使用できます。
|