论坛 › 『 提问交流 』 › 时间计算问题（小时和分钟）

KLU3K 发表于 2010-5-31 22:06:03

时间计算问题（小时和分钟）

本帖最后由 KLU3K 于 2010-6-1 11:59 编辑

如下表所示，如何计算出两个日期时间之间的差，并且列出总和。
我一点思路都没有。郁闷死了。

netegg 发表于 2010-5-31 22:16:32

_DateDiff($sType, $sStartDate, $sEndDate)

KLU3K 发表于 2010-5-31 22:26:21

我试过，只能算出要么小时，要么分钟。
比如相差119分钟，我希望得到的结果是1小时59分钟这样的结果。

l4ever 发表于 2010-5-31 22:38:01

本帖最后由 l4ever 于 2010-5-31 22:42 编辑

我试过，只能算出要么小时，要么分钟。
比如相差119分钟，我希望得到的结果是1小时59分钟这样的结果。
KLU3K 发表于 2010-5-31 22:26 http://www.autoitx.com/images/common/back.gifMsgBox(32,"",_string2time("121"))
MsgBox(32,"",_string2time("119"))

Func _string2time($str)
      $strh = Int($str/60)      ;返回了小时对吧
      $strs = Int($strh)*60      ;算出小时所占用的分钟
      $strm = $str - $strs      ;总时间减去小时锁占用的分!
                If StringLen($strm) = "1" Then $strm = "0"&$strm;一位数就补0
      If $strm < "1" Then                ;判断一下分钟是不是0
                Return $strh&"小时"
      Else
                Return $strh&"小时"&$strm&"分"
      EndIf
EndFunc
LZ不会变通?得多动脑.

查看完整版本: 时间计算问题（小时和分钟）