或者
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
加好友 
发短信
Post By：2014/1/15 20:54:00 [只看该作者]
