主题：[求助]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