怎样计算时间差!!! 我想计算两个时间差:如2004-02-23 20:23 2004-02-24 00:23 如何计算?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function GetDoTime(Time1, Time2)Dim stime If Time1 > Time2 Then stime = Time1 Time1 = Time2 Time2 = stime End If secondvalue = DateDiff("s", Time1, Time2) dayvalue = DateDiff("d", Time1, Time2) hourvalue = Fix((secondvalue - dayvalue * 24 * 3600) / 3600) If hourvalue < 0 Then dayvalue = dayvalue - 1: hourvalue = 24 + hourvalue minitevalue = Fix((secondvalue - dayvalue * 24 * 3600 - hourvalue * 3600) / 60) If minitevalue < 0 Then hourvalue = hourvalue - 1: minitevalue = 60 + minitevalue secvalue = secondvalue - dayvalue * 24 * 3600 - hourvalue * 3600 - minitevalue * 60 If secvalue < 0 Then minitevalue = minitevalue - 1: secvalue = 60 + secvalue GetDoTime=dayvalue & "天" & hourvalue & "小时" & minitevalue & "分" & secvalue & "秒" End function 直接进行计算就可以Private Sub Command1_Click()Dim d1 As DateDim d2 As Date d1 = "2004-01-23 20:23" d2 = "2004-02-24 00:23 " Print (d2 - d1) * 24 ’乘24返回小时,不乘24返回天数End Sub 谁能具体解释一下回车符(回车)和换行符(换行)有什么不同?? 组件 取值 fpspread 使用大问题...记录条数不到2000条,为什么程序运行好慢~~~~~~~!@$!@$ 设置窗体 BorderStyle = None后,能否拖动窗体的边框使窗体缩放?? 没办法拉,还是上网请教。数据在VB中合并插入,就是解决不了。望不吝赐教 如何在新开窗口前,关闭所有已打开的窗口? 属性 请高手帮帮忙,如何得到一个Access表中所有的主键字段? 谁做过这样的接口:能够把不同数据库格式转换为一种! 关于定义全局变量的问题? 如何能把焦点设到桌面上 请教不规则贴图
If Time1 > Time2 Then
stime = Time1
Time1 = Time2
Time2 = stime
End If
secondvalue = DateDiff("s", Time1, Time2)
dayvalue = DateDiff("d", Time1, Time2)
hourvalue = Fix((secondvalue - dayvalue * 24 * 3600) / 3600)
If hourvalue < 0 Then dayvalue = dayvalue - 1: hourvalue = 24 + hourvalue
minitevalue = Fix((secondvalue - dayvalue * 24 * 3600 - hourvalue * 3600) / 60)
If minitevalue < 0 Then hourvalue = hourvalue - 1: minitevalue = 60 + minitevalue
secvalue = secondvalue - dayvalue * 24 * 3600 - hourvalue * 3600 - minitevalue * 60
If secvalue < 0 Then minitevalue = minitevalue - 1: secvalue = 60 + secvalue
GetDoTime=dayvalue & "天" & hourvalue & "小时" & minitevalue & "分" & secvalue & "秒" End function
Private Sub Command1_Click()Dim d1 As Date
Dim d2 As Date
d1 = "2004-01-23 20:23"
d2 = "2004-02-24 00:23 "
Print (d2 - d1) * 24 ’乘24返回小时,不乘24返回天数
End Sub