Chinaunix

标题: 关时时间减去固定的分钟问题 [打印本页]

作者: zyhjay 时间: 2006-09-24 23:55
标题: 关时时间减去固定的分钟问题
求助：
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 编辑 ]

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)