关时时间减去固定的分钟问题

zyhjay

求助：
MyDateTime=2006-9-24 11:11:00
求MyDateTime-20分钟怎么做？
谢谢!
我现有程序如下，
'**************************************************
'函数名：ChangeTime By ZhengYi QQ:38864332 E-Mail:0.10086@163.com
'作  用：将指定时间提前？？分钟。
'参  数： FlyTime----原时间日期  SendTixing--需要减的分钟数。
'返回值：时间日期
'**************************************************
Function ChangeTime(FlyTime, SendTixing)
        if SendTixing<1 then
                TempTime_M = Minute(FlyTime) + cint(SendTixing) '分
        else
            TempTime_M = Minute(FlyTime) - SendTixing '分
        end if
    TempTime_H = Hour(FlyTime) '小时
    TempTime_D = Day(FlyTime) '日
    TempTime_Mm = Month(FlyTime) '月
    TempTime_Y = Year(FlyTime) '年
    If TempTime_M < 0 Then
        TempTime_M = TempTime_M + 60
        TempTime_H = TempTime_H - 1
    End If
    If TempTime_H < 0 Then
        TempTime_H = TempTime_H + 24
        TempTime_D = TempTime_D - 1
    End If
    If TempTime_D < 1 Then
        TempTime_D = Day(MonthLastDay(FlyTime))
        TempTime_Mm = TempTime_Mm - 1
    End If
    If TempTime_Mm < 1 Then
        TempTime_Mm = TempTime_Mm + 12
        TempTime_Y = TempTime_Y - 1
    End If
    SendTime = TempTime_Y & "-" & TempTime_Mm & "-" & TempTime_D & " " & TempTime_H & ":" & TempTime_M & ":00"
dTime)
    ChangeTime = CDate(SendTime)
End Function
以上函数减去60分钟以下没问题，但超过60分钟就出问题了。请高手帮忙看看。谢谢

[ 本帖最后由 zyhjay 于 2006-9-24 23:58 编辑 ]