- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 计算月数 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151762)
-- 发布时间：2020/7/2 22:11:00
-- 计算月数
请问老师如何把计算出指定日期与系统日期相差多少年多少月呢，下面的例子算出了月，但怎么换算成多少年多少月这样的形式呢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2020/7/2 22:13:00
--
参考：http://www.foxtable.com/webhelp/topics/2648.htm
-- 发布时间：2020/7/2 22:35:00
--
老师太神奇了，怎么能记住这么多例子呢，学习了。
-- 发布时间：2020/7/2 23:08:00
--
Select Case e.DataCol.name
Case "日期1"
Dim dr As DataRow = e.DataRow
If dr.IsNull("日期1") Then
dr("月数") = Nothing
Else
Dim y,m,d As Integer
Dim dt1 As Date = dr("日期1")
Dim dt2 As Date = Date.Today
DateYMD(dt1,dt2,y,m,d)
\'Output.Show(y & "年" & m & "月" & d & "日")
dr("月数") = y & "年" & m & "个月"
Select Case y
Case 0 To 5
dr("第四列") = "5年以下(含5年)"
dr("第五列") = "600"
Case 6 To 10
dr("第四列") = "5年以上10年以下(含10年)"
dr("第五列") = "1000"
Case 11 To 15
dr("第四列") = "10年以上15年以下(含15年)"
dr("第五列") = "1200"
Case 16 To 20
dr("第四列") = "15年以上20年以下(含20年)"
dr("第五列") = "1500"
Case > 20
dr("第四列") = "20年以上(含20年)"
dr("第五列") = "2000"
End Select
End If
End Select