主题：[求助]窗口計算日期

Dim t As Table = e.Form.Controls("Table1").Table

Dim d As Date = e.Sender.Value

For Each r As Row In t.Rows

    Dim ts As TimeSpan = d - cDate(r("日期"))

    r("相差年數") = ts.TotalDays / 365.2422

    r("相差月數") = ts.TotalDays / 30.43

    r("相差日數") = ts.TotalDays

Next

Dim t As Table = e.Form.Controls("Table1").Table

Dim d As Date = e.Sender.Value

For Each r As Row In t.Rows

    Dim rd As Date = r("日期")

    Dim tday As Integer

    Dim day As Integer = rd.Day

    If day >= d.Day Then

        tday = day - d.Day

    Else

        tday = 31 + day - d.Day

        rd = rd.AddDays(-31)

    End If

    Dim month As Integer = rd.Month

    Dim tmonth As Integer

    If month >= d.Month Then

        tmonth = month - d.month

    Else

        tmonth = 12 + month - d.Month

        rd = rd.AddMonths(-12)

    End If

    Dim year As Integer = rd.Year

    

    

    r("相差年數") = year - d.year

    r("相差月數") = tmonth

    r("相差日數") = tday

Next