[VB.net]DateTimeで月の差分を求める

2021年9月10日

書式
年 DateTimeオブジェクト名.Year
月 DateTimeオブジェクト名.Month
使用例

module Module1

    Sub Main()

        ' 指定日時1
        Dim dtA As New DateTime(2020, 8, 1, 0, 0, 0)

        ' 指定日時2
        Dim dtB As New DateTime(2021, 2, 2, 0, 0, 0)

     
        Dim res As Integer
        '年の差分 月の差分
        res = (12 * (dtB.Year - dtA.Year)) + (dtB.Month - dtA.Month)
        '年の取得
        Console.WriteLine(dtB.Year)
        Console.WriteLine(dtA.Year)
        Console.WriteLine("月の差分結果")
        Console.WriteLine(res)

        Console.ReadKey()

    End Sub

End Module

結果
2021
2020
月の差分結果
6

VB.net

Posted by arkgame