当前位置:编程学习 > VB >>

时间差问题

问题如下:让两个不同的时间相减,计算相差多少个月。例如2007.3.3至2007.5.5日,实际相差2个月零2天,就看作是差3个月。请问该如何写代码才能实现?谢谢大家!
--------------------编程问答--------------------
Function MonthDiff(ByVal dt1 As Date, ByVal dt2 As Date) As Integer
    Dim lMonth As Long
    lMonth = DateDiff("m", dt1, dt2)
    If DateAdd("m", lMonth, dt1) < dt2 Then lMonth = lMonth + 1
    MonthDiff = lMonth
End Function
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,