如何转换为时间数字。急！

阿兴2099

如何转换为数字。急！
如何转换为数字。急！，，没办法。 时间数据转换.rar (7.36 KB, 下载次数: 24)

2011-7-14 16:19 上传

点击文件名下载附件

yangrongguan

=TEXT(B4/86400,"HH:MM:SS")   有些不太对 可能是你自己搞错了

ykcbf1100

VBA，借题练习

要么B列数据有误，要么D列数据有误，原数据有些问题

ykcbf1100

1. Sub ykcbf()   '//2025.3.26     时间转换
   
2.     arr = [b4:f13]
   
3.     For i = 1 To UBound(arr)
   
4.         arr(i, 5) = stot(arr(i, 1))
   
5.     Next
   
6.     [b4:f13] = arr
   
7. End Sub
   
8. 
   
9. Function stot(ByVal totalSeconds As Double) As String
   
10.     Dim hours As Long
    
11.     Dim minutes As Long
    
12.     Dim seconds As Long
    
13.     hours = Int(totalSeconds / 3600)
    
14.     totalSeconds = totalSeconds - (hours * 3600)
    
15.     minutes = Int(totalSeconds / 60)
    
16.     seconds = Int(totalSeconds - (minutes * 60))
    
17.     stot = hours & ":" & Format(minutes, "00") & ":" & Format(seconds, "00")
    
18. End Function
    

复制代码

wishands

除以一天的分钟数就行了，不过原始数据有点问题