[求助]关于时间的计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于时间的计算

共有10281人关注过本帖树形打印复制链接主题：[求助]关于时间的计算

lxh2268

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：10 积分：137 威望：0 精华：0 注册：2011/8/21 21:08:00

[求助]关于时间的计算 发帖心情

Post By：2011/8/25 14:47:00 [只看该作者]

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

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

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

难道要FOR循环31次？！

[此贴子已经被作者于2011-8-25 14:55:40编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：10 积分：137 威望：0 精华：0 注册：2011/8/21 21:08:00

Post By：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

谢谢狐爸，我研究一下

下一主题 >> << 上一主题

主题：[求助]关于时间的计算