VB.NET中计算两个日期的年、月差值（支持正负值）求助

原代码的问题是只处理toDate晚于fromDate的情况，一旦toDate更早，循环条件直接不触发，年份、月份的计数都会是0。换个思路，直接计算总月份差值就能高效解决问题，还天然支持正负数值：

修改后的函数代码 #

Public Shared Function GetDateSpanText(fromDate As DateTime, toDate As DateTime) As String
    ' 计算总月份差：年份差乘12加月份差，自动包含正负符号
    Dim totalMonths As Integer = (toDate.Year - fromDate.Year) * 12 + (toDate.Month - fromDate.Month)
    
    ' 拆分成年份和月份（整数除法取年，取余运算取月）
    Dim years As Integer = totalMonths \ 12
    Dim months As Integer = totalMonths Mod 12
    
    ' 按需求格式返回结果
    Return $"{years} year(s) {months} month(s)"
End Function

测试验证 #

• 当fromDate = #1/6/2015#、toDate = #1/1/2019#时，总月份差为(2019-2015)*12 + (1-6) = 43，拆分后得到3年7个月，返回"3 year(s) 7 month(s)"，和预期一致。
• 若toDate早于fromDate（比如fromDate=#1/1/2019#，toDate=#1/6/2015#），总月份差为-43，拆分后得到-3 year(s) -7 month(s)，满足负数值的需求。

额外说明 #

• 这个方法完全忽略天数，只按年、月的差值计算，正好匹配你的需求。
• 相比原循环写法，直接计算的方式效率更高，不用修改原日期对象，也避免了循环逻辑的局限性。

内容的提问来源于stack exchange，提问作者Arbiee