如何返回两个日期相减的月份数和天数

Question

如何返回两个日期相减的月份数和天数.我做出来的是负数:
text3.text=text1.text-text2.text(例子)Text3.Text = DateDiff("m", CDate(Format(Text1.Text, "YYYY-MM-DD")), CDate(Format(Text2.Text, "yyyy-mm-dd")))如果天数返回大于15天算一个月,小于15不记!比如:返回(9个月16天)最后得出的结果是10个月.返回(9个月14天)则显示的结果为9个月!谢谢!

Answer 1

Text3.Text = DateDiff("d", CDate(Format(Text1.Text, "YYYY-MM-DD")), CDate(Format(Text2.Text, "yyyy-mm-dd")))这个说的是天数，至于后面的自己看看
最笨的方法就是自己算算这些天是多少个月

Answer 2

'*/-------------------------------------------------------------
'*/模 块 名:DateFunctions.bas
'*/功    能:字符串到日期及到字符串转换函数
'*/建立日期:2006-09-12
'*/修改日期:
'*/作    者:
'*/联    系：[email protected]  Http://www.mndsoft.com
'*/-------------------------------------------------------------Option Explicit'*/-------------------------------------------------------------
'*/函 数 名:DateToString
'*/功    能:标准日期格式转为字符串
'*/返 回 值:String  连续的字符串,如20060912101227
'*/参    数:vStandardDate      标准日期
'*/建立日期:2006-09-12
'*/修改日期:
'*/-------------------------------------------------------------
Public Function DateToString(ByRef vStandardDate As Date) As String  'SerializeDate
    Dim strYear As String, strMonth As String, strDay As String
    Dim strHour As String, strMinute As String, strSecond As String
    
    strYear = CStr(Year(vStandardDate))
    strMonth = CStr(Month(vStandardDate))
    strDay = CStr(Day(vStandardDate))
    strHour = CStr(Hour(vStandardDate))
    strMinute = CStr(Minute(vStandardDate))
    strSecond = CStr(Second(vStandardDate))
    If CInt(strMonth) < 10 Then _
        strMonth = "0" & strMonth
    If CInt(strDay) < 10 Then _
        strDay = "0" & strDay
    If CInt(strHour) < 10 Then _
        strHour = "0" & strHour
    If CInt(strMinute) < 10 Then _
        strMinute = "0" & strMinute
    If CInt(strSecond) < 10 Then _
        strSecond = "0" & strSecond
    DateToString = strYear & strMonth & strDay & strHour & strMinute & strSecond
End Function'*/-------------------------------------------------------------
'*/函 数 名:StringToDate
'*/功    能:字符串格式的日期转为标准日期格式
'*/返 回 值:Date    标准格式日期,如2006-09-12 10:12:27
'*/参    数:vSerialDate      字符串
'*/建立日期:2006-09-12
'*/修改日期:
'*/-------------------------------------------------------------
Public Function StringToDate(ByRef vSerialDate As String) As Date   'Standardize
    Dim strDate As String, strYear As String, strMonth As String, strDay As String
    Dim strHour As String, strMinute As String, strSecond As String
    
    strYear = Mid(vSerialDate, 1, 4)
    strMonth = Mid(vSerialDate, 5, 2)
    strDay = Mid(vSerialDate, 7, 2)
    strHour = Mid(vSerialDate, 9, 2)
    strMinute = Mid(vSerialDate, 11, 2)
    strSecond = Mid(vSerialDate, 13, 2)
    strDate = strMonth & "/" & strDay & "/" & strYear & " " & strHour & ":" & strMinute & ":" & strSecond
    StringToDate = CDate(strDate)
End Function'*/-------------------------------------------------------------
'*/函 数 名:CalcDate
'*/功    能:标准日期格式计算
'*/返 回 值:String  起始时间和结束时间计算结果
'*/参    数:strStartDate      起始时间
'*/         strEndDate        结束时间
'*/建立日期:2006-09-12
'*/修改日期:
'*/-------------------------------------------------------------
Public Function CalcDate(ByVal strStartDate As String, ByVal strEndDate As String) As String
    Dim lngYears As Long, lngDays As Long, lngHours As Long, lngMinutes As Long, lngSeconds As Long
    Dim dblYears As Double, dblDays As Double, dblHours As Double, dblMinutes As Double, dblSeconds As Double
    Dim lngTotalSeconds As Long, lngSecondsRemaining As Long
    
   'strStartDate = StringToDate(strStartDate)
   ' strEndDate = StringToDate(strEndDate)
    
    If CDate(strStartDate) < CDate(strEndDate) Then
        lngTotalSeconds = DateDiff("s", CDate(strStartDate), CDate(strEndDate))
    Else
        lngTotalSeconds = DateDiff("s", CDate(strEndDate), CDate(strStartDate))
    End If
    lngSecondsRemaining = lngTotalSeconds
    lngYears = Fix(lngSecondsRemaining / 31536000)
    lngSecondsRemaining = lngSecondsRemaining - (lngYears * 31536000)
    
    lngDays = Fix(lngSecondsRemaining / 86400)
    lngSecondsRemaining = lngSecondsRemaining - (lngDays * 86400)
    
    lngHours = Fix(lngSecondsRemaining / 3600)
    lngSecondsRemaining = lngSecondsRemaining - (lngHours * 3600)
    
    lngMinutes = Fix(lngSecondsRemaining / 60)
    lngSecondsRemaining = lngSecondsRemaining - (lngMinutes * 60)
    lngSeconds = lngSecondsRemaining
    
'    CalcDate = CStr(lngYears) & " 年, " _
'        & CStr(lngDays) & " 天, " _
'        & CStr(lngHours) & " 时, " _
'        & CStr(lngMinutes) & " 分, " _
'        & CStr(lngSeconds) & " 秒"    CalcDate = IIf(lngDays = 0, "", CStr(lngDays) & "天") _
            & IIf(lngHours = 0, "", CStr(lngHours) & "时") _
            & IIf(lngMinutes = 0, "", CStr(lngMinutes) & "分") _
            & IIf(lngSeconds = 0, "", CStr(lngSeconds) & "秒")'    dblYears = Round(lngTotalSeconds / 31536000, 4)
'    dblDays = Round(lngTotalSeconds / 86400, 4)
'    dblHours = Round(lngTotalSeconds / 3600, 4)
'    dblMinutes = Round(lngTotalSeconds / 60, 4)
'    dblSeconds = lngTotalSeconds
'    CalcDate = CalcDate & "小数时间:" & vbNewLine _
'        & "年: " & CStr(dblYears) & vbNewLine _
'        & "天: " & CStr(dblDays) & vbNewLine _
'        & "时: " & CStr(dblHours) & vbNewLine _
'        & "分: " & CStr(dblMinutes) & vbNewLine _
'        & "秒: " & CStr(dblSeconds)
End Function
'是否月份判断
Public Function DaysInMonth(ByVal Month As Integer, ByVal LeapYear As Boolean) As Integer
    Select Case Month
        Case 1, 3, 5, 7, 8, 10, 12
            DaysInMonth = 31
        Case 4, 6, 9, 11
            DaysInMonth = 30
        Case 2
            If LeapYear Then
                DaysInMonth = 29
            Else
                DaysInMonth = 28
        End If
    End Select
End Function'是否闰年判断
Public Function IsLeapYear(ByVal Year As Integer) As Boolean
    If Year Mod 4 = 0 Then
        IsLeapYear = True
        If Year Mod 100 = 0 And Year Mod 400 <> 0 Then
            IsLeapYear = False
        End If
    End If
End Function

Answer 3

'*/-------------------------------------------------------------
'*/模 块 名:DateFunctions.bas
'*/功    能:字符串到日期及到字符串转换函数
'*/建立日期:2006-09-12
'*/修改日期:
'*/作    者:
'*/联    系：[email protected]  Http://www.mndsoft.com
'*/-------------------------------------------------------------Option Explicit'*/-------------------------------------------------------------
'*/函 数 名:DateToString
'*/功    能:标准日期格式转为字符串
'*/返 回 值:String  连续的字符串,如20060912101227
'*/参    数:vStandardDate      标准日期
'*/建立日期:2006-09-12
'*/修改日期:
'*/-------------------------------------------------------------
Public Function DateToString(ByRef vStandardDate As Date) As String  'SerializeDate
    Dim strYear As String, strMonth As String, strDay As String
    Dim strHour As String, strMinute As String, strSecond As String
    
    strYear = CStr(Year(vStandardDate))
    strMonth = CStr(Month(vStandardDate))
    strDay = CStr(Day(vStandardDate))
    strHour = CStr(Hour(vStandardDate))
    strMinute = CStr(Minute(vStandardDate))
    strSecond = CStr(Second(vStandardDate))
    If CInt(strMonth) < 10 Then _
        strMonth = "0" & strMonth
    If CInt(strDay) < 10 Then _
        strDay = "0" & strDay
    If CInt(strHour) < 10 Then _
        strHour = "0" & strHour
    If CInt(strMinute) < 10 Then _
        strMinute = "0" & strMinute
    If CInt(strSecond) < 10 Then _
        strSecond = "0" & strSecond
    DateToString = strYear & strMonth & strDay & strHour & strMinute & strSecond
End Function'*/-------------------------------------------------------------
'*/函 数 名:StringToDate
'*/功    能:字符串格式的日期转为标准日期格式
'*/返 回 值:Date    标准格式日期,如2006-09-12 10:12:27
'*/参    数:vSerialDate      字符串
'*/建立日期:2006-09-12
'*/修改日期:
'*/-------------------------------------------------------------
Public Function StringToDate(ByRef vSerialDate As String) As Date   'Standardize
    Dim strDate As String, strYear As String, strMonth As String, strDay As String
    Dim strHour As String, strMinute As String, strSecond As String
    
    strYear = Mid(vSerialDate, 1, 4)
    strMonth = Mid(vSerialDate, 5, 2)
    strDay = Mid(vSerialDate, 7, 2)
    strHour = Mid(vSerialDate, 9, 2)
    strMinute = Mid(vSerialDate, 11, 2)
    strSecond = Mid(vSerialDate, 13, 2)
    strDate = strMonth & "/" & strDay & "/" & strYear & " " & strHour & ":" & strMinute & ":" & strSecond
    StringToDate = CDate(strDate)
End Function'*/-------------------------------------------------------------
'*/函 数 名:CalcDate
'*/功    能:标准日期格式计算
'*/返 回 值:String  起始时间和结束时间计算结果
'*/参    数:strStartDate      起始时间
'*/         strEndDate        结束时间
'*/建立日期:2006-09-12
'*/修改日期:
'*/-------------------------------------------------------------
Public Function CalcDate(ByVal strStartDate As String, ByVal strEndDate As String) As String
    Dim lngYears As Long, lngDays As Long, lngHours As Long, lngMinutes As Long, lngSeconds As Long
    Dim dblYears As Double, dblDays As Double, dblHours As Double, dblMinutes As Double, dblSeconds As Double
    Dim lngTotalSeconds As Long, lngSecondsRemaining As Long
    
   'strStartDate = StringToDate(strStartDate)
   ' strEndDate = StringToDate(strEndDate)
    
    If CDate(strStartDate) < CDate(strEndDate) Then
        lngTotalSeconds = DateDiff("s", CDate(strStartDate), CDate(strEndDate))
    Else
        lngTotalSeconds = DateDiff("s", CDate(strEndDate), CDate(strStartDate))
    End If
    lngSecondsRemaining = lngTotalSeconds
    lngYears = Fix(lngSecondsRemaining / 31536000)
    lngSecondsRemaining = lngSecondsRemaining - (lngYears * 31536000)
    
    lngDays = Fix(lngSecondsRemaining / 86400)
    lngSecondsRemaining = lngSecondsRemaining - (lngDays * 86400)
    
    lngHours = Fix(lngSecondsRemaining / 3600)
    lngSecondsRemaining = lngSecondsRemaining - (lngHours * 3600)
    
    lngMinutes = Fix(lngSecondsRemaining / 60)
    lngSecondsRemaining = lngSecondsRemaining - (lngMinutes * 60)
    lngSeconds = lngSecondsRemaining
    
'    CalcDate = CStr(lngYears) & " 年, " _
'        & CStr(lngDays) & " 天, " _
'        & CStr(lngHours) & " 时, " _
'        & CStr(lngMinutes) & " 分, " _
'        & CStr(lngSeconds) & " 秒"    CalcDate = IIf(lngDays = 0, "", CStr(lngDays) & "天") _
            & IIf(lngHours = 0, "", CStr(lngHours) & "时") _
            & IIf(lngMinutes = 0, "", CStr(lngMinutes) & "分") _
            & IIf(lngSeconds = 0, "", CStr(lngSeconds) & "秒")'    dblYears = Round(lngTotalSeconds / 31536000, 4)
'    dblDays = Round(lngTotalSeconds / 86400, 4)
'    dblHours = Round(lngTotalSeconds / 3600, 4)
'    dblMinutes = Round(lngTotalSeconds / 60, 4)
'    dblSeconds = lngTotalSeconds
'    CalcDate = CalcDate & "小数时间:" & vbNewLine _
'        & "年: " & CStr(dblYears) & vbNewLine _
'        & "天: " & CStr(dblDays) & vbNewLine _
'        & "时: " & CStr(dblHours) & vbNewLine _
'        & "分: " & CStr(dblMinutes) & vbNewLine _
'        & "秒: " & CStr(dblSeconds)
End Function
'是否月份判断
Public Function DaysInMonth(ByVal Month As Integer, ByVal LeapYear As Boolean) As Integer
    Select Case Month
        Case 1, 3, 5, 7, 8, 10, 12
            DaysInMonth = 31
        Case 4, 6, 9, 11
            DaysInMonth = 30
        Case 2
            If LeapYear Then
                DaysInMonth = 29
            Else
                DaysInMonth = 28
        End If
    End Select
End Function'是否闰年判断
Public Function IsLeapYear(ByVal Year As Integer) As Boolean
    If Year Mod 4 = 0 Then
        IsLeapYear = True
        If Year Mod 100 = 0 And Year Mod 400 <> 0 Then
            IsLeapYear = False
        End If
    End If
End Function