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 つの引数で直接または相対的に指定された日付が、正しい日付の範囲内にない場合は、エラーが発生します。