以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]DateYMD函数，结果是超期会有负数的情况下，怎么让输出值有负号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140060)
--  作者：lovelypig122
--  发布时间：2019/8/28 17:42:00
--  [求助]DateYMD函数，结果是超期会有负数的情况下，怎么让输出值有负号
目前代码如下：
 如果到期日是2019-07-31，当月是2019-08-31，输出值如何显示 -1

Select Case e.DataCol.Name
    Case "贷款到期日","当月日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("贷款到期日") OrElse dr.IsNull("当月日期") Then
            dr("预警") = Nothing
        Else
            Dim y,m,d As Integer
            DateYMD(e.DataRow("贷款到期日"),e.DataRow("当月日期"),y,m,d)
            dr("预警") = y * 12 +  m
        End If
End Select 
--  作者：有点蓝
--  发布时间：2019/8/28 17:58:00
--  
通过比较日期大小进行判断

if e.DataRow("贷款到期日") < e.DataRow("当月日期") then
dr("预警") = (y * 12 +  m) * -1
else
dr("预警") = y * 12 +  m
end if