C# と VB.NET の質問掲示板

VB2008

いつも参考にさせていただきます。
初めて質問いたします。

2つの日付から
？年？月？日経過したかを知りたいのですが
そういうことは可能でしょうか？

例) 2008/10/1, 2009/12/4 の場合、「1年2月3日」と出したい

2つの日付から
Date.Subtractで経過日数は取得できましたが
？年？月？日への変換のやり方が分かりませんでした。

DateDiff関数を使用した場合、
経過年、経過月は求めれましたが
日数の求め方が分かりませんでした。

        Dim a As New Date(2008, 10, 1)
        Dim b As New Date(2009, 12, 4)
        MsgBox(DateDiff(DateInterval.Year, a, b))
        MsgBox(DateDiff(DateInterval.Month, a, b) Mod 12)
        ' MsgBox(DateDiff(DateInterval.Day, a, b)) ← 日数の算出ができない

良い方法がありましたらご教示ください。
よろしくお願い致します。

>> 2008/12/4, 2009/10/1 の場合、どうなるの？

  2009 / 10 / 01
- 2008 / 12 / 04

↓日:01 < 04 なので 月から借りてくる。10月01日を09月31日とする

  2009 / 09 / 31
- 2008 / 12 / 04

↓月:09 < 12 なので年から借りてくる。2009年09月を 2008年21月とする。

  2008 / 21 / 31
- 2008 / 12 / 04
----------------
  0000 / 09 / 27

なんてーことすりゃいんじゃね?
月から借りてくるとき、月の大小と閏年を考慮するだけっしょ。

■No42084 (επιστημη さん) に返信
> 2009/10/07(Wed) 16:58:34 編集(投稿者)
> 
> >> 2008/12/4, 2009/10/1 の場合、どうなるの？
> 
>   2009 / 10 / 01
> - 2008 / 12 / 04
> 
> ↓日:01 < 04 なので 月から借りてくる。10月01日を09月31日とする
> 
>   2009 / 09 / 31
> - 2008 / 12 / 04
> 
> ↓月:09 < 12 なので年から借りてくる。2009年09月を 2008年21月とする。
> 
>   2008 / 21 / 31
> - 2008 / 12 / 04
> ----------------
>   0000 / 09 / 27
> 
> なんてーことすりゃいんじゃね?
> 月から借りてくるとき、月の大小と閏年を考慮するだけっしょ。
> 

なるほど
年月日で普通の引き算のような繰り上げをするのですね。
その考えは思いつきませんでした。

既に別の方法で実装しましたのでサンプルを書きます。
※まだテストしていませんが。。

1. 経過日数を算出
2. 経過日数から合計月数を算出
3. 年：合計月数/12
   月：合計月数/12の余り 
   日：合計月数算出の時、余った日数

-------------------------------------------------

        Dim dt1 As New DateTime(2008, 12, 4)
        Dim dt2 As New DateTime(2009, 10, 1)

        Dim workDt As DateTime = dt1

        ' 1. 経過日数を算出
        Dim totalDays As Integer = dt2.Subtract(dt1).Days + 1 ' ←仕様上プラス1日

        ' 2. 経過日数から合計月数を算出 
        Dim totalMonths As Integer = 0
        Do
            Dim daysInMonth As Integer = DateTime.DaysInMonth(workDt.Year, workDt.Month)
            If totalDays < daysInMonth Then
                Exit Do
            End If
            totalDays = totalDays - daysInMonth
            totalMonths = totalMonths + 1
            workDt = workDt.AddMonths(1)
        Loop

        ' 3.
        Dim y As Integer = CInt(totalMonths / 12) ' ←自前のメソッドで切捨て
        Dim m As Integer = totalMonths Mod 12
        Dim d As Integer = totalDays