2013年4月7日日曜日

[VB.NET]日付、時間の加減方法について


■日付、時間の加減方法について
Module Module1

    Sub Main()

        Dim DateTimeObj As DateTime = DateTime.ParseExact("2013/01/31", "yyyy/MM/dd", Nothing)

        Console.WriteLine("ベースの日時{0}", DateTimeObj.ToString)

        Console.WriteLine("□日付の加減算")
        Console.WriteLine("1年後 - {0}", DateTimeObj.AddYears(1).ToString)
        Console.WriteLine("1年前 - {0}", DateTimeObj.AddYears(-1).ToString)

        Console.WriteLine("来月 - {0}", DateTimeObj.AddMonths(1).ToString)
        Console.WriteLine("先月 - {0}", DateTimeObj.AddMonths(-1).ToString)

        Console.WriteLine("明日 - {0}", DateTimeObj.AddDays(1).ToString)
        Console.WriteLine("昨日 - {0}", DateTimeObj.AddDays(-1).ToString)

        Console.WriteLine("□時間の加減算")
        Console.WriteLine("1時間後 - {0}", DateTimeObj.AddHours(1).ToString)
        Console.WriteLine("1時間前 - {0}", DateTimeObj.AddHours(-1).ToString)

        Console.WriteLine("1分後 - {0}", DateTimeObj.AddMinutes(1).ToString)
        Console.WriteLine("1分前 - {0}", DateTimeObj.AddMinutes(-1).ToString)

    End Sub

End Module

0 件のコメント: