以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于时间的计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12197)
--  作者：lxh2268
--  发布时间：2011/8/25 14:47:00
--  [求助]关于时间的计算

列1显示“一天耗时时间”为字符型，其中一行显示“8小时30分”

 

列2显示“一月总耗时时间”为字符型，那我要计算出“8小时30分*31"（假设一个月31天）

 

该如何计算呢？好像乘以号“*”不支持时间格式的计算啊

 

难道要FOR循环31次？！

[此贴子已经被作者于2011-8-25 14:55:40编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/8/25 15:07:00
--  
Dim s As String = "8小时30分"
Dim h As Integer = val(s)
Dim m As Integer = val(s.Substring(s.Indexof("小时")+2))
Dim v As Integer= h * 60 * 31 + m * 31
s = (v \\ 60) & "小时" & (v Mod 60 ) & "分"
Return s
--  作者：lxh2268
--  发布时间：2011/8/25 15:13:00
--  
以下是引用狐狸爸爸在2011-8-25 15:07:00的发言：
Dim s As String = "8小时30分"
Dim h As Integer = val(s)
Dim m As Integer = val(s.Substring(s.Indexof("小时")+2))
Dim v As Integer= h * 60 * 31 + m * 31
s = (v \\ 60) & "小时" & (v Mod 60 ) & "分"
Return s

谢谢狐爸，我研究一下