一个VB语言中的DateDiff函数遇到的问题。

Question

先上代码：

            Dim R As Date
            Dim RA As Long
            
            R = TextBox1.Text
            
            RA = DateDiff("m", R, "2001.7")
            
            Label17.Text = RA Mod 12
           

如果 TextBox1.Text = 2001.09 这个代码执行以后Label17.Text显示的结果为负数。

这个是哪里的问题，求大佬们普及解决办法。

Answer 1

这个由函数本身定义决定的,两个日期位置对调试看.RA = DateDiff("m", "2001.7", R) 如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。