VB.NET 日時の差分を求めるサンプル

VB.NETの日時の差分を求めるサンプルです。

目次

サンプル 日の差分を求める
  時間の差分を求める

日の差分を求める

日の差分を求めるサンプルです。

Module Module1
    Sub Main()
        ' 指定日時をセット 2020/1/2
        Dim dt1 As New DateTime(2020, 1, 2, 0, 0, 0)

        ' 指定日時をセット 2019/12/31
        Dim dt2 As New DateTime(2019, 12, 31, 0, 0, 0)

        ' 引き算
        Dim ts1 As New TimeSpan

        ts1 = dt1 - dt2

        Console.WriteLine(ts1.Days) '2

    End Sub
End Module

4行目は、2020/1/2をセットしています。
7行目は、2019/12/31をセットしています。
12行目は、引き算をしています。
14行目は、TimeSpanのDaysプロパティで日数を表示しています。2日です。

時間の差分を求める

時間の差分を求めるサンプルです。

Module Module1
    Sub Main()
        ' 指定日時をセット 2020/1/3 10:00:00
        Dim dt1 As New DateTime(2020, 1, 3, 10, 0, 0)

        ' 指定日時をセット 2019/1/1 10:00:00
        Dim dt2 As New DateTime(2020, 1, 1, 10, 0, 0)

        ' 引き算
        Dim ts1 As New TimeSpan

        ts1 = dt1 - dt2

        Console.WriteLine(ts1.TotalHours) '48

    End Sub
End Module

4行目は、2020/1/3の10:00:00をセットしています。
7行目は、2019/1/1の10:00:00をセットしています。
12行目は、引き算をしています。
14行目は、TimeSpanのTotalHoursプロパティで時間を表示しています。48時間です。

関連の記事

VB.NET 現在日時の取得と表示形式のサンプル
VB.NET 日時を計算するサンプル(加算と減算)

△上に戻る