vb.net - 2 つの DateTime 間の月数を取得する

Question

mnth = DateDiff(DateInterval.Month, 8/30/2012, 10/1/2012)  

を与え mnth = 2ます。しかし、これらの日付の間には 32 日しかありません。これらの日の間は32日しかないので、結果を期待していmnth=1ます。

助けてください..

私のシナリオでは、15 日以上を 1 か月と見なすことができますが、15 日未満の場合は考慮しないでください。

Answer 1

完全な月数を取得するには、解釈に応じてさまざまなことを行うことができます。

Public Function CompleteMonthsBetweenA( _
        ByVal start As DateTime, _
        ByVal end As DateTime) As Integer

    Dim invertor = 1

    If (start > end) Then
       Dim tmp = end
       end = start
       start = tmp
       invertor = -1
    End If

    Dim diff = ((end.Year - start.Year) * 12) + end.Month - start.Month

    If start.Day > end.Day Then
        Return (diff - 1) * invertor
    Else
        Return diff * invertor
    End If
End Function

この関数では、2011 年 5 月 31 日 (dd/mm/yy) から 2011 年 6 月 30 日までの完全な月数は 0 ですが、2011 年 6 月 30 日から 2011 年 7 月 31 日までの月数は 1 です。あなたが期待するものになります。

---

Public Function CompleteMonthsBetweenB( _
        ByVal start As DateTime, _
        ByVal end As DateTime) As Integer

    Dim invertor = 1

    If (start > end) Then
       Dim tmp = end
       end = start
       start = tmp
       invertor = -1
    End If

    Dim diff = ((end.Year - start.Year) * 12) + end.Month - start.Month

    Dim startDaysInMonth = DateTime.DaysInMonth(start.Year, start.Month)
    Dim endDaysInMonth = DateTime.DaysInMonth(end.Year, end.Month)

    If (start.Day / startDaysInMonth) > (end.Day / endDaysInMonth) Then
        Return (diff - 1) * invertor
    Else
        Return diff * invertor
    End If
End Function

この関数を使用すると、比率Day / DaysInMonthが取得されるため、2 か月の相対的な完了を評価できます。

---

Public Function CompleteMonthsBetweenC( _
     ByVal start As DateTime, _
     ByVal enddate As DateTime) As Integer

    Dim invertor = 1

    If (start > enddate) Then
        Dim tmp = enddate
        enddate = start
        start = tmp
        invertor = -1
    End If

    Dim diff = ((enddate.Year - start.Year) * 12) + enddate.Month - start.Month

    Dim remainingDays = _
      (DateTime.DaysInMonth(start.Year, start.Month) - start.Day) + enddate.Day

    If remainingDays < 15 Then
        Return (diff - 1) * invertor
    Else
        Return diff * invertor
    End If
End Function

この関数は、余剰日数がマジック ナンバー 15 未満の場合にのみ切り捨てられます。これは、アップデートで求められているものだと思います。

---

Public Function CompleteMonthsBetweenD( _
        ByVal start As DateTime, _
        ByVal end As DateTime) As Integer

    Return end.Subtract(start).TotalDays \ 30.436875
End Function

この関数は、合計日数をグレゴリオ暦の 1 か月あたりの平均日数で割るという、より単純な方法を使用します。

Answer 2

月の差は、日付の日コンポーネントに関係なく計算されます。

たとえば、との間の月の差8/31/2012は9/1/20121ですが、日付の間は1日だけです。

日の構成要素を検討する場合は、月ではなく日で日付の差を取得し、それを何か月にするかを計算する必要があります。

Answer 3

これは私が使用するクラスです (C# ですが、VB.NET に変換するのは非常に簡単です)。年、月、日などに便利です... #Y-#M-#D 形式で年齢を表示するのに最適です。

public class DateDifference
    {
        /// <summary>
        /// defining Number of days in month; index 0=> january and 11=> December
        /// february contain either 28 or 29 days, that's why here value is -1
        /// which wil be calculate later.
        /// </summary>
        private int[] monthDay = new int[12] { 31, -1, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };

    /// <summary>
    /// contain from date
    /// </summary>
    private DateTime fromDate;

    /// <summary>
    /// contain To Date
    /// </summary>
    private DateTime toDate;

    /// <summary>
    /// this three variable for output representation..
    /// </summary>
    private int year;
    private int month;
    private int day;

    public DateDifference(DateTime d1, DateTime d2)
    {
        int increment;

        if (d1 > d2)
        {
            this.fromDate = d2;
            this.toDate = d1;
        }
        else
        {
            this.fromDate = d1;
            this.toDate = d2;
        }
        /// 
        /// Day Calculation
        /// 
        increment = 0;

        if (this.fromDate.Day > this.toDate.Day)
        {
            increment = this.monthDay[this.fromDate.Month - 1];

        }
        /// if it is february month
        /// if it's to day is less then from day
        if (increment == -1)
        {
            if (DateTime.IsLeapYear(this.fromDate.Year))
            {
                // leap year february contain 29 days
                increment = 29;
            }
            else
            {
                increment = 28;
            }
        }
        if (increment != 0)
        {
            day = (this.toDate.Day + increment) - this.fromDate.Day;
            increment = 1;
        }
        else
        {
            day = this.toDate.Day - this.fromDate.Day;
        }

        ///
        ///month calculation
        ///
        if ((this.fromDate.Month + increment) > this.toDate.Month)
        {
            this.month = (this.toDate.Month + 12) - (this.fromDate.Month + increment);
            increment = 1;
        }
        else
        {
            this.month = (this.toDate.Month) - (this.fromDate.Month + increment);
            increment = 0;
        }

        ///
        /// year calculation
        ///
        this.year = this.toDate.Year - (this.fromDate.Year + increment);

    }

    public override string ToString()
    {
        //return base.ToString();
        return this.year + " Year(s), " + this.month + " month(s), " + this.day + " day(s)";
    }

    public int Years
    {
        get
        {
            return this.year;
        }
    }

    public int Months
    {
        get
        {
            return this.month;
        }
    }

    public int Days
    {
        get
        {
            return this.day;
        }
    }
}

利用方法：

DateDifference diff = new DateDifference(date1, date2);
int months = (diff.Years*12) + diff.Months + diff.Days > 15 ? 1 : 0;

Answer 4

完全な月の数が必要な場合は、最も近い月の初めから始まる日付を比較する必要があります。

Sub Main()

    ' mnth = DateDiff(DateInterval.Month, 8/30/2012, 10/1/2012)  

    Console.WriteLine(GetCompleteMonthCount(New DateTime(2012, 8, 30), New DateTime(2012, 10, 1)))
    Console.ReadLine()

End Sub


Public Function GetCompleteMonthCount(ByVal d1 As DateTime, ByVal d2 As DateTime) As Integer

    If d1.Day <> 1 Then
        d1 = d1.AddMonths(1)
        d1 = New DateTime(d1.Year, d1.Month, 1)
    End If

    If d2.Day <> 1 Then
        d2 = New DateTime(d2.Year, d2.Month, 1)
    End If

    Return DateDiff(DateInterval.Month, d1, d2)
End Function