<< Prev Page Next Page >>

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


VBAで祝日を判定する関数

以前、Excelのマクロで結構大物を作ったんだけど、なんか祝日を判定させたくなったので、誰か作ってない~?と思って調べたけど、ルールを一生懸命参照してマジメに処理してるのばっかりで行数も多すぎるし、もし今度法律が変わっちゃったら直すのがウザすぎるし、いいやと思って自分で作った。

簡単&短いお得。ただし2017年までしか使えません。(それよりもっと早く法律が変わっちゃうと思うけど)

これなら法律が変わっちゃっても誰でもメンテ簡単でしょ。 →こよみのページ

Function IsHoliday(d As Date) As Boolean Dim expr As String expr = Format(d, "yyyy/mm/dd") Const Holidays = _ "2010/01/01 2010/01/11 2010/02/11 2010/03/21 2010/03/22 2010/04/29 2010/05/03 2010/05/04 2010/05/05 2010/07/19 2010/09/20 2010/09/23 2010/10/11 2010/11/03 2010/11/23 2010/12/23 " & _ "2011/01/01 2011/01/10 2011/02/11 2011/03/21 2011/04/29 2011/05/03 2011/05/04 2011/05/05 2011/07/18 2011/09/19 2011/09/23 2011/10/10 2011/11/03 2011/11/23 2011/12/23 " & _ "2012/01/01 2012/01/02 2012/01/09 2012/02/11 2012/03/20 2012/04/29 2012/04/30 2012/05/03 2012/05/04 2012/05/05 2012/07/16 2012/09/17 2012/09/22 2012/10/08 2012/11/03 2012/11/23 2012/12/23 2012/12/24 " & _ "2013/01/01 2013/01/14 2013/02/11 2013/03/20 2013/04/29 2013/05/03 2013/05/04 2013/05/05 2013/05/06 2013/07/15 2013/09/16 2013/09/23 2013/10/14 2013/11/03 2013/11/04 2013/11/23 2013/12/23 " & _ "2014/01/01 2014/01/13 2014/02/11 2014/03/21 2014/04/29 2014/05/03 2014/05/04 2014/05/05 2014/05/06 2014/07/21 2014/09/15 2014/09/23 2014/10/13 2014/11/03 2014/11/23 2014/11/24 2014/12/23 " & _ "2015/01/01 2015/01/12 2015/02/11 2015/03/21 2015/04/29 2015/05/03 2015/05/04 2015/05/05 2015/05/06 2015/07/20 2015/09/21 2015/09/22 2015/09/23 2015/10/12 2015/11/03 2015/11/23 2015/12/23 " & _ "2016/01/01 2016/01/11 2016/02/11 2016/03/20 2016/03/21 2016/04/29 2016/05/03 2016/05/04 2016/05/05 2016/07/18 2016/09/19 2016/09/22 2016/10/10 2016/11/03 2016/11/23 2016/12/23 " & _ "2017/01/01 2017/01/02 2017/01/09 2017/02/11 2017/03/20 2017/04/29 2017/05/03 2017/05/04 2017/05/05 2017/07/17 2017/09/18 2017/09/23 2017/10/09 2017/11/03 2017/11/23 2017/12/23 " IsHoliday = InStr(1, Holidays, expr) > 0 End Function


この記事に対するコメント

使わせていただきました!
仕事で使う文書で、祝日を判別しつつ、日付をセットする必要があったので。
おっしゃる通り、メンテが簡単なのがいいです。
ありがとうございました!

【2013/06/21 11:36】URL | maki #1pbBghSI[ 編集]

使用させて頂きました。
祝日の実装条件分岐めんどいから定数でする発想勉強になります。綺麗で短いソースですし便利な機能ですね。

【2013/12/05 15:24】URL | #-[ 編集]

この記事に対するコメントの投稿



管理者にだけ表示を許可する

この記事に対するトラックバック

トラックバックURL
http://tockri.blog78.fc2.com/tb.php/216-0ac850b0
この記事にトラックバックする(FC2ブログユーザー)

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。