时间戳

首页 > 解决方案 > 计算 Libreoffice 计算公式的小时数

libreoffice-calc - 计算 Libreoffice 计算公式的小时数

问题描述

嗨，我想计算几对时间之间的小时数，其中 ';' 是分隔符。我知道如何通过拆分来做到这一点，但我想避免这种情况并在一个单元格中进行。例如，从8:00-12:00;13:30-16:00;16:30-17:15单元格应显示 7,25 或 7:15。感谢您的回答。

标签： libreoffice-calc

解决方案

像这样的东西

Function Total_Time(sList As String) As String 
Dim aTemp As Variant, aPair As Variant
Dim i As Long, dRes As Double 
    aTemp = Split(sList, ";")
    For i = LBound(aTemp) To UBound(aTemp)
        aPair = Split(aTemp(i), "-")
        dRes = dRes + TimeValue(aPair(1))
        dRes = dRes - TimeValue(aPair(0))
    Next i
    Total_Time = Format(dRes,"HH:MM")
End Function

推荐阅读