構文. DateSerial(year, month, day). Sub test(). Dim mydate(2) As Date '翌月1日の日付 mydate(0) = DateSerial(Year(Date), Month(Date) + 1, 1)
確定! 回上一頁