VB，将"秒"转成"时分秒"格式

参考博客：http://share.freesion.com/427239/

数据库存放字段worktime,(类型：varchar(6)，说明：HHmmss)，页面要求显示 HH:mm:ss

1.sql语句，可以将worktime的数据，转成 秒数

SELECT
    SUM(
        cast( substring( d13.`worktime`, 1, 2 ) AS DECIMAL ) * 3600 + cast( substring( d13.`worktime`, 3, 2 ) AS DECIMAL ) * 60+ cast( substring( d13.`worktime`, 5, 2 ) AS DECIMAL ) 
    ) AS 'totalTime'
FROM d13

2.vb后台，将 秒数 转成 时分秒的格式

label1.Text = Format(DateAdd("s", CDec(label1.Text), "00:00:00"), "HH:mm:ss")

CDec(表达式)：是将表达式参数，转成Decimal类型的数据

https://docs.microsoft.com/zh-cn/office/vba/Language/Reference/User-Interface-Help/dateadd-function    关于DateAdd方法的介绍

DateAdd("s",秒数,"00:00:00")，将秒 转成 包含时分秒的日期

Format(object,"格式")，在这里，格式日期数据，返回string