Option Compare Database 'テキスト中、接頭文字固定のキーコードを抽出。 '複数埋め込まれている場合はカンマ区切りで返す 'Usage 'ret = GetKeyCode(検索対象となるテキスト,キーコード特定用の接頭文字,接頭文字以降の連番数) Public Function GetKeyCode…

たぶん出典元はここ。 http://www.h3.dion.ne.jp/~sakatsu/holiday_logic.htm#Access「M_休日」テーブル内の「休日」フィールド(日付型)に、 土日以外の休日が登録されている前提です。 元ネタの方が営業日の正負分岐の書き方がいい感じ。 土日以外で休日指…