求助：怎么把如图的00天00时00分钟00秒改为00小时格式

TANGXIAOLUZI

如图，因为时间的格式不太一样，不知道怎么搞了

两蛋一瓜

效果如下（内容是文本和数值格式两种）：

TANGXIAOLUZI

两蛋一瓜 发表于 2021-4-8 15:29
效果如下（内容是文本和数值格式两种）：

感谢大佬，我去练练

fsw0812

你这格式也太乱了，我是没耐心了

TANGXIAOLUZI

fsw0812 发表于 2021-4-8 15:59
你这格式也太乱了，我是没耐心了

哈哈哈，数据库导出来就这样子

风中的我脸

1. Function gethour(ByVal str As String)
   
2.     Dim aRes(1 To 4, 1 To 1), i&, n#
   
3.     Dim reg As New RegExp
   
4.     Dim maches As MatchCollection
   
5.     With reg
   
6.         .Pattern = "((\d*)天)?((\d*)时)?((\d*)分)?((\d*)秒)?"
   
7.         Set maches = .Execute(str)
   
8.             With maches(0)
   
9.                 aRes(1, 1) = Val(.SubMatches(1)) * 24
   
10.                 aRes(2, 1) = Val(.SubMatches(3))
    
11.                 aRes(3, 1) = Val(.SubMatches(5)) / 60
    
12.                 aRes(4, 1) = Val(.SubMatches(7)) / 3600
    
13.             End With
    
14.     End With
    
15.     For i = 1 To UBound(aRes)
    
16.         n = aRes(i, 1) + n
    
17.     Next
    
18.     gethour = n
    
19. End Function

复制代码