主题：计算月数

请问老师如何把计算出指定日期与系统日期相差多少年多少月呢，下面的例子算出了月，但怎么换算成多少年多少月这样的形式呢。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

参考：http://www.foxtable.com/webhelp/topics/2648.htm

老师太神奇了，怎么能记住这么多例子呢，学习了。

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