双精度值的转换 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双精度值的转换

共有2609人关注过本帖树形打印复制链接主题：双精度值的转换

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

双精度值的转换 发帖心情

Post By：2015/12/9 13:26:00 [只看该作者]

请教老师，我设计好的上班时间减下班时间得到工作时长（例如08:50）8小时分50分，在设计统计表（SQGroup)的时候，工作时长列

显示是秒的数量31800，如何换算为08:50，或者是8.83

是否在这个代码改DataTables("考勤统计_Table1").DataCols("工作时长").SetFormat("##/3600“)

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/9 14:14:00 [只看该作者]

DataTables("表A").DataCols("第三列").ExtendType = ExtendTypeEnum.TimeSpan

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2015/12/9 20:56:00 [只看该作者]

老师给的上述代码在SQL的报表中能正确显示了，另外，老师请再指导指导，在专业报表中，如何显示正确格式，下面这段代码自己不知怎么写了

If tb.Cols(c).IsNumeric Then

Select tb.Cols(c).Name

Case "工作时长"

For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容

rt.Cells(r + 1, c).Text = DataTables("考勤统计_Table1").DataCols("工作时长").ExtendType = ExtendTypeEnum.TimeSpan

rt.Rows(0).Height = 7 '设置行高

Case Else

For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容

rt.Cells(r + 1, c).Text = Format(tb(r,c), "0")

rt.Rows(0).Height = 7 '设置行高

End Select

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/9 20:59:00 [只看该作者]

rt.Cells(r + 1, c).Text = tb(r,c) \ 3600 & ":" & (tb(r,c) mod 3600) \ 60

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2015/12/9 21:05:00 [只看该作者]

非常谢谢老师！

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

主题：双精度值的转换