转换存储为文本的负时间

Question

我需要能够将存储为文本的时间值转换为数字。那些以文本形式存储的内容似乎是负值，格式为-0：03。我需要能够在计算中使用这些数字。

有人可以建议如何解决，因为似乎没有任何效果。

Answer 1

选择包含负文本时间值的单元格并运行此小宏：

Sub ConvertNegativeTime()
    Dim r As Range, v As String
    Dim t As Date
    For Each r In Selection
    With r
        v = .Text
        If Left(v, 1) = "-" Then
            ary = Split(Mid(v, 2), ":")
            t = TimeSerial(ary(0), ary(1), 0)
            .Clear
            .Value = -CDbl(t)
        End If
    End With
    Next r
End Sub

如果 A1 包含您的发布值，则在运行宏后，它将包含：

-0.020833333