Question

我在电子表格中将计时器设置为VB对象。它目前显示为 HH：MM：ss.00。我需要它只显示为秒（没有毫秒或分钟，IE 1:30应显示为90）。

Dim StopTimer As Boolean
Dim Etime As Single
Dim Etime0 As Single
Dim LastEtime As Single

Private Sub CommandButton1_Click()
StopTimer = False
Etime0 = Timer() - LastEtime
Do Until StopTimer
Etime = Int((Timer() - Etime0) * 100) / 100
If Etime > LastEtime Then
LastEtime = Etime
Label1.Caption = Format(Etime / 86400, "hh:mm:ss.") & Format(Etime * 100 Mod 100, "00")
DoEvents
End If
Loop
End Sub

Private Sub CommandButton2_Click()
StopTimer = True
Beep
    With New MSForms.DataObject
        .SetText Label1.Caption
        .PutInClipboard
    End With
End Sub

Private Sub CommandButton3_Click()
StopTimer = True
Etime = 0
Etime0 = 0
LastEtime = 0
Label1.Caption = "00"
End Sub

我确定我只是忽略了一些显而易见的事情，但我并不太熟悉计时器和格式化。

Answer 1

请参阅此链接：

Convert HH:MM:SS string to seconds only in javascript

试试这个：

var hms = '02:04:33';   // your input string
var a = hms.split(':'); // split it at the colons

// minutes are worth 60 seconds. Hours are worth 60 minutes.
var seconds = (+a[0]) * 60 * 60 + (+a[1]) * 60 + (+a[2]); 

console.log(seconds);

Answer 2

这可能是最简单也是最全面的方式，因为一分钟有60秒而一小时有3600秒。

因此1分30秒将是0*3600 + 1*60 + 30：

Public Sub TestMe()

    Dim myTime As Date
    myTime = TimeSerial(0, 1, 30)
    Debug.Print Hour(myTime) * 3600 + Minute(myTime) * 60 + Second(myTime)

End Sub

它需要1:30并返回90。您可以考虑编写一个像这样的单独函数：

Public Function TimeToSeconds(Optional hours As Long = 0, _
                                Optional minutes As Long = 0, _
                                Optional seconds As Long = 0) As Long

    TimeToSeconds = hours * 3600 + minutes * 60 + seconds

End Function

将计时器转换为仅显示秒数

2 个答案: