VB.NET-TIPS などプログラミングについて

データ型の中で 日付型(Date) はよく使用するもののひとつです。 VB.NETの中に日付のデータ型として、 Date と DateTime がありますが、 どの様な違いがあるのか疑問に思われるでしょうが、以下のMSDNの説明によれば同じものの様です。
⇒データ型の概要 (Visual Basic)

日付型として同じであれば、どちらを使ってもよいのですが、プログラムの中では一つに統一した方が良いと思います。 （私としては DateTime で良いと思います）

以下のソースは抜粋ですが、どちらも同じことをを処理しています。

日付型データの使い方1

    Dim strWK As String = ""
    Dim dateWK As Date
    'Date型
    dateWK = New Date(2018, 1, 20, 15, 17, 30)
    strWK = dateWK.ToString("yyyy/MM/dd HH:mm:ss")  '日付型を書式で変換
    Console.WriteLine("dateWK.ToString(""yyyy/MM/dd HH:mm:ss"") = " & strWK)

    'DateTime型
    Dim dateTimeWK As DateTime
    dateTimeWK = New DateTime(2018, 1, 20, 15, 17, 30)
    strWK = dateTimeWK.ToString("yyyy/MM/dd HH:mm:ss")
    Console.WriteLine("dateTimeWK.ToString(""yyyy/MM/dd HH:mm:ss"") = " & strWK)

ソースの中で、ToString を使用して日付型データから書式に従って文字列に変換しています。 今回の例では書式を"yyyy/MM/dd HH:mm:ss"を使っていますが、通常はこの様な感じで十分かと思います。
尚、この書式には各種ありますが代表的なものを以下に示します。

次に日付型の計算について説明します。 いろんなところで日付に対して翌日、前日、前月、翌月、前年、翌年などの計算が必要になりますが、 日付型のメソッドとしてそれらを計算できるものが揃っています。 私がよく使うものを以下に示します。

日付型データの使い方2

        '日付の設定
        dateTimeWK = New DateTime(2018, 1, 25)
        '日数＋１
        dateTimeWK = dateTimeWK.AddDays(1)
        Console.WriteLine("日数＋１ = " & dateTimeWK.ToString("yyyy/MM/dd HH:mm:ss"))
        '日数－１
        dateTimeWK = dateTimeWK.AddDays(-1)
        Console.WriteLine("日数－１ = " & dateTimeWK.ToString("yyyy/MM/dd HH:mm:ss"))

        '月数＋１
        dateTimeWK = dateTimeWK.AddMonths(1)
        Console.WriteLine("月数＋１ = " & dateTimeWK.ToString("yyyy/MM/dd HH:mm:ss"))
        '月数－１
        dateTimeWK = dateTimeWK.AddMonths(-1)
        Console.WriteLine("月数－１ = " & dateTimeWK.ToString("yyyy/MM/dd HH:mm:ss"))

        '年数＋１
        dateTimeWK = dateTimeWK.AddYears(1)
        Console.WriteLine("年数＋１ = " & dateTimeWK.ToString("yyyy/MM/dd HH:mm:ss"))
        '年数－１
        dateTimeWK = dateTimeWK.AddYears(-1)
        Console.WriteLine("年数－１ = " & dateTimeWK.ToString("yyyy/MM/dd HH:mm:ss"))

上記の処理を実行すると以下の様な表示が、「出力」ウインドウに表示されます。

dateWK.ToString("yyyy/MM/dd HH:mm:ss") = 2018/01/20 15:17:30
dateTimeWK.ToString("yyyy/MM/dd HH:mm:ss") = 2018/01/20 15:17:30
日数＋１ = 2018/01/26 00:00:00
日数－１ = 2018/01/25 00:00:00
月数＋１ = 2018/02/25 00:00:00
月数－１ = 2018/01/25 00:00:00
年数＋１ = 2019/01/25 00:00:00
年数－１ = 2018/01/25 00:00:00

関連する記事