DateSerial 関数DateSerial function

指定した年、月、日の Variant (Date) を返します。Returns a Variant (Date) for a specified year, month, and day.

構文Syntax

DateSerial(year, month, day)DateSerial(year, month, day)


DateSerial 関数の構文には、次の名前付き引数があります。The DateSerial function syntax has these named arguments:

パーツPart 説明Description
yearyear 必須。IntegerRequired; Integer. 100 以上 9999 以下の数値、または数式です。Number between 100 and 9999, inclusive, or a numeric expression.
monthmonth 必須。IntegerRequired; Integer. 任意の数式。Any numeric expression.
dayday 必須。IntegerRequired; Integer. 任意の数式。Any numeric expression.

解説Remarks

1991 年 12 月 31 日などの日付を指定するには、DateSerial の各引数の数値範囲がその単位の許容範囲内である必要があります。つまり、日の場合は 1 以上 31 以下、月の場合は 1 以上 12 以下です。To specify a date, such as December 31, 1991, the range of numbers for each DateSerial argument should be in the accepted range for the unit; that is, 1–31 for days and 1–12 for months. ただし、特定の日付の前後の日数、月数、年数を表す任意の数式を使用して、各引数の相対日付を指定することもできます。However, you can also specify relative dates for each argument by using any numeric expression that represents some number of days, months, or years before or after a certain date.

次の例では、絶対日付数値の代わりに、数式を使用しています。The following example uses numeric expressions instead of absolute date numbers. DateSerial 関数は、月初めの前日 (1 - 1)、8 月から 2 か月前 (8 - 2)、1990 年から 10 年前 (1990 - 10)、つまり、1980 年 5 月 31 日を返します。Here the DateSerial function returns a date that is the day before the first day (1 - 1), two months before August (8 - 2), 10 years before 1990 (1990 - 10); in other words, May 31, 1980.

Windows 98 または Windows 2000 では、year 引数の 2 桁の年は、ユーザーが定義したマシン設定により解釈されます。Under Windows 98 or Windows 2000, two digit years for the year argument are interpreted based on user-defined machine settings. 既定の設定では、0 以上 29 以下の値が 2000 年から 2029 年として解釈されます。The default settings are that values between 0 and 29, inclusive, are interpreted as the years 2000–2029. 30 以上 99 以下の既定値は、1930 年から 1999 年として解釈されます。The default values between 30 and 99 are interpreted as the years 1930–1999. その他のすべての year 引数では、4 桁の年を使用します (1800 など)。For all other year arguments, use a four-digit year (for example, 1800).

以前の Windows バージョンでは、上記で説明した既定値に応じて、2 桁の年で解釈されます。Earlier versions of Windows interpret two-digit years based on the defaults described earlier. 関数が適切な値を確実に返すようにするには、4 桁の年を使用します。To be sure the function returns the proper value, use a four-digit year.

いずれかの引数の値が引数の許容範囲を超えた場合は、必要に応じて次の上位の単位に繰り越されます。When any argument exceeds the accepted range for that argument, it increments to the next larger unit as appropriate. たとえば、35 日を指定した場合は、1 か月と数日と評価されます (日数は月によって変わります)。For example, if you specify 35 days, it is evaluated as one month and some number of days, depending on where in the year it is applied. 引数のいずれか 1 つでも -32,768 から 32,767 の範囲を超えると、エラーが発生します。If any single argument is outside the range -32,768 to 32,767, an error occurs. 3 つの引数で指定された日付が許容日付範囲外の日付になると、エラーが発生します。If the date specified by the three arguments falls outside the acceptable range of dates, an error occurs.

注意

yearmonth、および day は、カレンダー プロパティ設定がグレゴリオ暦の場合、指定した値はグレゴリオ暦と見なされます。For year, month, and day, if the Calendar property setting is Gregorian, the supplied value is assumed to be Gregorian. カレンダー プロパティの設定がイスラム暦の場合、指定した値はイスラム暦と見なされます。If the Calendar property setting is Hijri, the supplied value is assumed to be Hijri.

返される日付部分は、現在の Visual Basic のカレンダーの暦になります。The returned date part is in the time period units of the current Visual Basic calendar. たとえば、現在のカレンダーがイスラム暦で、返される日付部分が年の場合、年の値はイスラム暦の年になります。For example, if the current calendar is Hijri and the date part to be returned is the year, the year value is a Hijri year. 引数 year の場合、0 以上 99 以下の値は 1400 年から 1499 年として解釈されます。For the argument year, values between 0 and 99, inclusive, are interpreted as the years 1400–1499. その他のすべての year 値では、完全な 4 桁の年を使用します (1520 など)。For all other year values, use the complete four-digit year (for example, 1520).

Example

この例では、DateSerial 関数を使用して、指定した年、月、日の日付を返しています。This example uses the DateSerial function to return the date for the specified year, month, and day.

Dim MyDate
' MyDate contains the date for February 12, 1969.
MyDate = DateSerial(1969, 2, 12)    ' Return a date.

関連項目See also

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.