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

日付を取り扱う処理は多いもので、請求処理や月締処理などで対象月の月末の日付を計算する場合があります。 また、年度の替わりが年末である場合には年末の日付を計算する必要があります。

月末で問題なのは2月で、うるう年の月末は29日のため、そのことを考える必要があります。
月末の取得は、私がよく使っているのですが指定された年月での月の最初日から翌月の最初日を計算し、 その結果の1日前を計算しています。 また、DateTime の DaysInMonth メソッドを使って該当年月の日数を使うことでも可能です。

それでは、指定された年月日に対応する月末の日付を取得する方法と、年末の日付を取得する方法を以下に示します。

月末、年末の日付取得

    '月末の取得
    Dim dateWK As DateTime
    dateWK = Now()
    Console.WriteLine("現在：" & dateWK.ToString("yyyy/MM/dd"))
    dateWK = New Date(dateWK.Year, dateWK.Month, 1) '指定年月での最初日
    dateWK = dateWK.AddMonths(1).AddDays(-1)        '次月の1日前を計算
    Console.WriteLine("月末の取得1：" & dateWK.ToString("yyyy/MM/dd"))

    '[DateTime.DaysInMonth]メソッドによる方法
    dateWK = Me.DateTimePicker1.Value
    dateWK = New Date(dateWK.Year, dateWK.Month, DateTime.DaysInMonth(dateWK.Year, dateWK.Month))
    Console.WriteLine("月末の取得2：" & dateWK.ToString("yyyy/MM/dd"))

    '年末の取得(直接12月31日指定)
    dateWK = Me.DateTimePicker1.Value
    dateWK = New Date(dateWK.Year, 12, 31)      '指定年での最終日(直接12月31日指定)
    Console.WriteLine("年末の取得の取得1：" & dateWK.ToString("yyyy/MM/dd"))

    '年末の取得(指定年の翌年の元旦の1日前の計算)
    dateWK = Me.DateTimePicker1.Value
    dateWK = New Date(dateWK.Year, 1, 1)        '指定年での最初日(元旦)
    dateWK = dateWK.AddYears(1).AddDays(-1)     '次年の1日前を計算
    Console.WriteLine("年末の取得の取得1：" & dateWK.ToString("yyyy/MM/dd"))

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

現在：2019/02/01
月末の取得1：2019/02/28
月末の取得2：2019/02/28
年末の取得の取得1：2019/12/31
年末の取得の取得1：2019/12/31

ところで、年の加算を行った場合にうるう年を跨いだ場合にどうなるのかが少し気になりましたので、 以下の様なソースで実行してみました。

1年後の計算（AddYearsメソッド）

    '1年後の計算（AddYearsメソッド）
    dateWK = New Date(2019, 2, 28)  '指定年月：2019/02/28
    dateWK = dateWK.AddYears(1)
    Console.WriteLine("うるう年では無い年の1年後：" & dateWK.ToString("yyyy/MM/dd"))

    dateWK = New Date(2020, 2, 28)  '指定年月：2020/02/28
    dateWK = dateWK.AddYears(1)
    Console.WriteLine("うるう年の場合の年の1年後：" & dateWK.ToString("yyyy/MM/dd"))

    dateWK = New Date(2020, 2, 29)  '指定年月：2020/02/29
    dateWK = dateWK.AddYears(1)
    Console.WriteLine("うるう日からの1年後：" & dateWK.ToString("yyyy/MM/dd"))

    dateWK = New Date(2019, 3, 1)   '指定年月：2019/03/01
    dateWK = dateWK.AddYears(1)
    Console.WriteLine("うるう日を挟む場合の1年後：" & dateWK.ToString("yyyy/MM/dd"))

上記の処理を実行すると以下の様な表示が、「出力」ウインドウに表示されます。
2019/02/28 を指定した場合、2019年はうるう年では無いので、1年後の計算は当然 2020/02/28 になります。

2020/02/28 を指定した場合、2020年はうるう年なので 2020/02/29 があるので1日ずれるかと思いきや、1年後の計算は当然 2021/02/28 になります。 これはうるう日を特別に計算しているのか、もしくはただ単に年の数値を１加算しているのかはわかりません。

2020/02/29 を指定した場合でも結果は 1年後の計算は当然 2021/02/28 になります。やはり、うるう日を加味されている様です。

このことは、ある指定日からの1年間を計算する場合に問題になるかもしれません。 1年は365日とするのかそれともうるう日を含めるのかはその時々の仕様によると思います。

うるう年では無い年の1年後：2020/02/28
うるう年の場合の年の1年後：2021/02/28
うるう日からの1年後：2021/02/28
うるう日を挟む場合の1年後：2020/03/01

関連する記事