DateSerial 関数

DateSerial(intYear, intMonth, intDay)

引数に指定された年、月、日に対応する日付をバリアント型 (内部処理形式が日付型 (Date) の Variant) の値で返します。

引数

intYear
年を表す 100 ~ 9999 の範囲の数値または任意の数式を指定します。
intMonth
任意の数式を指定します。
intDay
任意の数式を指定します。

備考

日付を指定する場合、引数はそれぞれ正しい範囲内にある必要があります。
月については 1 ~ 12、日については 1 ~ 31 です。
また、ある日付からの相対的な年、月、日を表す数式を引数に指定することもできます。

使用例

次のコードは、直接日付を指定せずに式を使って相対的に日付を指定した例です。
1990 年の 10 年前 (1990 - 10) の 8 月から 2 か月前 (8 - 2) の最初の日の前日 (1 - 1) の日付に対応する 1980 年 5 月 31 日を値として返します。

Dim strDate1, strDate2
strDate1 = DateSerial(1970, 1, 1)                '1970 年 1 月 1 日を返します。
strDate2 = DateSerial(1990 - 10, 8 - 2, 1 - 1)   '1980 年 5 月 31 日を返します。
              

解説

引数 intYear に 0 ~ 99 の範囲の数値を指定すると、1900 ~ 1999 と読み替えられます。その範囲外の数値を引数 intYear に指定するには、完全な 4 桁の数値 (たとえば 1800) を指定してください。
各引数に指定する値が正しい範囲内にない場合、指定された値は引数に従って加算されます。
たとえば、引数 intDay に 35 を指定すると、指定した年と月に応じて、指定した月と翌月に超過した分の日数として扱われます。ただし、各引数の値が -32,768 ~ 32,767 の範囲を超える場合、またはこの 3 つの引数で直接または相対的に指定された日付が、正しい日付の範囲内にない場合は、エラーが発生します。

関連

Now 関数 | Year 関数 | Month 関数 | Day 関数 | Weekday 関数 | Date 関数 | DateValue 関数 | TimeSerial 関数 | TimeValue 関数

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

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

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

    WebでもWindowsでも使えるVBScriptだから手元においてさっと引けるこの一冊!VBScript5.6に対応!待望の改訂版!目的別リファレンスでやりたいことから調べられます。すべての項目にサンプルコード掲載!WSH、ASP、IEすべての環境でお役に立ちます。

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

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

  • Access VBA逆引きハンドブック

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

このページの先頭へ