IsDate 関数

IsDate(expression)

式を日付に変換できるかどうかを調べ、結果をブール値で返します。

引数

expression

日付または時刻として認識できる日付式または文字列式を指定します。

解説

IsDate 関数は、指定した式が日付である場合、またはその式を日付に変換できる場合は、真 (True) を返します。変換できない場合は、偽 (False) を返します。Microsoft Windows で有効な日付の範囲は、西暦 100 年 1 月 1 日から西暦 9999 年 12 月 31 日までです。この範囲は、オペレーティングシステムによって異なります。

使用例

次のコードは、IsDate 関数を使って式を日付に変換できるかどうかを調べる例です。

Dim MyDate, YourDate, NoDate, MyCheck
MyDate = "October 19, 1962"
YourDate = #10/19/62#
NoDate = "Hello"
MyCheck = IsDate(MyDate)           '真 (True) を返します。
MyCheck = IsDate(YourDate)         '真 (True) を返します。
MyCheck = IsDate(NoDate)           '偽 (False) を返します。

MyCheck = IsDate("2004/02/29")     '真 (True) を返します。
MyCheck = IsDate("2005/02/29")     '偽 (False) を返します。

次のコードは、IsDate 関数を使って与えられた月の末日を調べる例です。

'年月日を返します。
Function GetLastDay(MyDate)
     Dim i, strDate
     i = 31
     '日付を与えられた年月の31日にする
     strDate = Year(MyDate) & "/" & Month(MyDate) & "/" & i
     '日付として認識できるまで繰り返す
     Do While Not IsDate(strDate)
          '1日前にする
          i = i - 1
          strDate = Year(MyDate) & "/" & Month(MyDate) & "/" & i
     Loop
     GetLastDay = strDate
End Function

'日を返します。
Function GetLastDay(MyDate)
     Dim i, MyCheck
     i = 31
     MyDate = Year(MyDate) & "/" & Month(MyDate) & "/"
     MyCheck = MyDate & i
     '日付として認識できるまで繰り返す
     Do While Not IsDate(MyCheck)
          i = i - 1
          MyCheck = MyDate & i
     Loop
     GetLastDay = i
End Function

※ DateAdd 関数を使うともっと簡単に調べられます。

この記事を読んで当サイトが面白いと思ったら、ぜひRSSリーダーやはてブなどに登録していただいて、また遊びにきてくださいね！ツイッターでも、更新履歴を流してます。

最速攻略VBScriptサンプル大全集

好評の「最速攻略 VBScript サンプル大全集」の改訂版です。これまでのWindows2000／XPに加え、Windows Vista、最新のWindows 7環境にも対応しています。Windows上での処理の自動化や一括処理（バッチ処理）をテーマとしたVBScriptのサンプルスクリプト集です。付属 CD-ROMには、すぐに使うことができる100以上のサンプルスクリプトを用意しています。

VBScriptポケットリファレンス改訂版

ＷｅｂでもＷｉｎｄｏｗｓでも使えるＶＢＳｃｒｉｐｔだから手元においてさっと引けるこの一冊！ＶＢＳｃｒｉｐｔ５．６に対応！待望の改訂版！目的別リファレンスでやりたいことから調べられます。すべての項目にサンプルコード掲載！ＷＳＨ、ＡＳＰ、ＩＥすべての環境でお役に立ちます。

Excel VBAポケットリファレンス改訂第3版

好評のExcel VBAポケットリファレンスが改訂第3版としてリニューアルしました。知りたいコマンドがすぐ調べられる機能引きリファレンスはそのままに、最新の Excel 2010に完全対応。もちろん、これまでのExcel 97、2000、2002、2003、2007のすべてのバージョンに対応しています。「こんなときどうするの？」「どう書けばいいの？」という疑問がすぐ解決する、全てのExcel VBAユーザー必携の、最強のリファレンスブックです！

Access VBA逆引きハンドブック

本書はAccess VBAの各機能を、豊富なプログラミング例を使って、初心者にもわかりやすく、かつ網羅的に解説しています。また、やりたいことを目的別に簡単に探せる「逆引き」の構成になっています。

スポンサードリンク