- 论坛徽章:
- 0
|
求助:
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 编辑 ] |
|