2011年12月4日日曜日

[ExcelVBA] DateSerial関数


■構文
DateSerial(year, month, day)

■説明
年、月、日を引数に日付を返す
第一引数:年にあたる部分。100~9999の範囲で指定
第二引数:月にあたる部分。1~12の範囲で指定
第三引数:日にあたる部分。1~31の範囲で指定

■サンプルコード
Option Explicit

Sub SampleCode()
    Debug.Print DateSerial(2011, 1, 1)   '2011/1/1日
    Debug.Print DateSerial(2010, 13, 1)  '2011/1/1日 月は、繰り上がり発生
    Debug.Print DateSerial(2010, 12, 32) '2011/1/1日 日と月は、繰り上がり発生
End Sub

0 件のコメント: