• DateSerial関数の概要
• TimeSerial関数の概要
• 具体的な使用例
• 注意点とトラブルシューティング
• まとめ

DateSerial関数の概要

VBAにおけるDateSerial関数は、指定した年、月、日から日付のシリアル値を生成するための便利な関数です。このシリアル値は、Excelなどで日付を内部的に管理するための数値で、計算や比較、フォーマット変換に利用されます。

書式は以下の通りです。

DateSerial(year, month, day)

各引数の説明は次のとおりです。

• year : 対象とする年（例：2025）。
• month : 対象とする月。通常は1から12の整数ですが、12を超える値や0、マイナスの値も利用でき、翌年や前年の日付を自動計算してくれます。
• day : 対象とする日。こちらも月の日数を超える値や不足する値を指定すると、自動的に調整されます。

たとえば、2025年3月15日のシリアル値を求める場合は次のように書きます。

Dim myDate As Date
myDate = DateSerial(2025, 3, 15)

Excelでは、日付は通常1900年1月1日を1として数えます。したがって、DateSerial(1900, 1, 1)は1を返し、以降の日付はそれに対するオフセットとして表されます。

また、オーバーフローが発生する場合も自動で補正されます。例えば、2025年2月30日を指定すると、実際には2025年3月2日として計算されます。

Dim adjustedDate As Date
adjustedDate = DateSerial(2025, 2, 30)  ' 結果は2025年3月2日となる

TimeSerial関数の概要

VBAのTimeSerial関数は、指定した時、分、秒から時刻のシリアル値を生成します。Excelなどでは、1日を1とする内部表現で、時刻はこの数値の小数部分として管理されます。

書式は以下のとおりです。

TimeSerial(hour, minute, second)

各引数の意味は次の通りです。

• hour : 対象とする時。通常は0～23の整数ですが、24以上の値や負の値も指定可能で、結果は自動的に調整されます。
• minute : 対象とする分（0～59）。
• second : 対象とする秒（0～59）。

たとえば、午前9時30分のシリアル値を求める場合は以下のようになります。

Dim myTime As Date
myTime = TimeSerial(9, 30, 0)

Excelでは、1日は1として表されるため、例えば正午はTimeSerial(12, 0, 0)で0.5（12/24）となり、午後6時は0.75（18/24）となります。

また、オーバーフローの場合も自動調整されます。次の例では、25時と指定すると翌日の午前1時として計算されます。

Dim adjustedTime As Date
adjustedTime = TimeSerial(25, 0, 0)  ' 結果は翌日の午前1時

具体的な使用例

ここでは、DateSerialとTimeSerialを活用した具体例をいくつか紹介します。これにより、実際のコードでどのように利用できるか理解が深まるでしょう。

例：ユーザー入力から日付のシリアル値を取得する

Sub ShowSerialDate()
    Dim yearInput As Integer
    Dim monthInput As Integer
    Dim dayInput As Integer
    Dim serialDate As Date

    yearInput = InputBox("年を入力してください", "日付入力")
    monthInput = InputBox("月を入力してください", "日付入力")
    dayInput = InputBox("日を入力してください", "日付入力")

    serialDate = DateSerial(yearInput, monthInput, dayInput)
    MsgBox "指定された日付のシリアル値は " & serialDate & " です。"
End Sub

例：現在の日付と指定した時刻を組み合わせて日時を作成する

Sub CombineDateAndTime()
    Dim todayDate As Date
    Dim specificTime As Date
    Dim combinedDateTime As Date

    todayDate = Date       ' 現在の日付を取得
    specificTime = TimeSerial(14, 45, 0)  ' 午後2時45分

    combinedDateTime = DateSerial(Year(todayDate), Month(todayDate), Day(todayDate)) + specificTime
    MsgBox "本日午後2時45分の日時は " & combinedDateTime & " です。"
End Sub

例：日付と時刻の加算による計算

Sub AddDaysAndTime()
    Dim baseDate As Date
    Dim newDate As Date
    Dim newTime As Date

    ' 2025年12月31日のシリアル値を取得
    baseDate = DateSerial(2025, 12, 31)
    ' 1日加算すると翌日となる
    newDate = baseDate + 1

    ' 23時30分に90分加算する例（TimeSerialで時間の加算が可能）
    newTime = TimeSerial(23, 30, 0) + TimeSerial(0, 90, 0)
    
    MsgBox "翌日の日付は " & newDate & " です。"
    MsgBox "23時30分に90分を加えた時刻は " & newTime & " です。"
End Sub

例：特定の日付の翌月の日付を求める

Sub NextMonthDate()
    Dim currentDate As Date
    Dim nextMonthDate As Date

    currentDate = DateSerial(2025, 1, 31)
    ' 次の月の31日が存在しない場合、DateSerialは自動的に調整する
    nextMonthDate = DateSerial(Year(currentDate), Month(currentDate) + 1, Day(currentDate))
    
    MsgBox "2025年1月31日の翌月は " & nextMonthDate & " です。"
End Sub

注意点とトラブルシューティング

これらの関数を使用する際に覚えておくべきポイントを以下にまとめます。

• オーバーフローの自動調整: DateSerialおよびTimeSerialは、月や日の範囲、または時・分・秒の範囲を超える値を指定すると、自動的に正しい日付や時刻に補正します。意図しない値を入力すると、予期せぬ結果になることがあるので注意が必要です。
• うるう年の処理: DateSerial関数はうるう年を正しく認識します。例えば、2024年はうるう年であるためDateSerial(2024, 2, 29)は正しい日付として処理されます。一方、うるう年でない年に2月29日を指定すると、自動調整が行われます。
• 24時間を超える時刻: TimeSerial関数は、指定した時刻が24時間を超える場合、翌日に繰り越して計算します。たとえば、TimeSerial(25, 0, 0)は翌日の午前1時として扱われます。
• 表示形式: VBA上での出力はシリアル値の数値として表示されることがあります。Excel上で日付や時刻として表示するには、セルの書式設定を適切に行う必要があります。

デバッグ時は、MsgBoxなどを使って各変数の値を確認することで、計算結果や自動補正の挙動を把握すると良いでしょう。

まとめ

VBAにおけるDateSerialとTimeSerial関数は、日付や時刻の操作をシンプルかつ柔軟に行うための強力なツールです。これらの関数を利用することで、ユーザー入力の日付の取り扱い、日時の加算、そしてオーバーフロー時の自動補正が容易に実現できます。

初心者の方は、まずは基本的な例を試し、慣れてきたらさらに複雑な計算や条件分岐を組み合わせることで、より高度な日付・時刻処理を学んでいくと良いでしょう。実際のアプリケーション開発やデータ処理において、この知識は大いに役立つはずです。