「VB.NET」DateTime構造体で指定期間前後の日付時刻を取得する

書式
AddHours(時間数)
AddDays(日数)
AddMonths(月数)
AddYears(年数)
DateTime構造体のNowプロパティを使って指定期間前後の日付時刻を取得します

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Public Sub Main()
'現在の日付を取得
Dim cft As DateTime = DateTime.Now
Console.WriteLine("現在の日付: " & cft)
'AddHoursメソッドで12時間前を取得
Console.WriteLine("12時間前: " & cft.AddHours(-12))
'AddDaysメソッドで22日後を取得
Console.WriteLine("22日後: " & cft.AddDays(22))
'AddMonthsメソッドで4ヶ月後を取得
Console.WriteLine("4ヶ月後: " & cft.AddMonths(4))
'AddYearsメソッドで3年後を取得
Console.WriteLine("3年後: " & cft.AddYears(3))
Console.ReadKey()
End Sub
End Module
Module Module1 Public Sub Main() '現在の日付を取得 Dim cft As DateTime = DateTime.Now Console.WriteLine("現在の日付: " & cft) 'AddHoursメソッドで12時間前を取得 Console.WriteLine("12時間前: " & cft.AddHours(-12)) 'AddDaysメソッドで22日後を取得 Console.WriteLine("22日後: " & cft.AddDays(22)) 'AddMonthsメソッドで4ヶ月後を取得 Console.WriteLine("4ヶ月後: " & cft.AddMonths(4)) 'AddYearsメソッドで3年後を取得 Console.WriteLine("3年後: " & cft.AddYears(3)) Console.ReadKey() End Sub End Module
Module Module1

    Public Sub Main()

        '現在の日付を取得
        Dim cft As DateTime = DateTime.Now

        Console.WriteLine("現在の日付: " & cft)

        'AddHoursメソッドで12時間前を取得
        Console.WriteLine("12時間前: " & cft.AddHours(-12))

        'AddDaysメソッドで22日後を取得
        Console.WriteLine("22日後: " & cft.AddDays(22))

        'AddMonthsメソッドで4ヶ月後を取得
        Console.WriteLine("4ヶ月後: " & cft.AddMonths(4))

        'AddYearsメソッドで3年後を取得
        Console.WriteLine("3年後: " & cft.AddYears(3))

        Console.ReadKey()
    End Sub

End Module

実行結果
現在の日付: 2022/01/19 19:50:30
12時間前: 2022/01/19 7:50:30
22日後: 2022/02/10 19:50:30
4ヶ月後: 2022/05/19 19:50:30
3年後: 2025/01/19 19:50:30

VB.net

Posted by arkgame