VBA, MS Access MS Access в примерах

Дата-Время - Кол-во часов по значениям полей начала и окончания (работы)

Public Function TotalTimeInHours(vStartHH As Variant, vStartNN As Variant, vEndHH As Variant, vEndNN As Variant) As Currency
'es 06.03.2019
'Дата-Время - Кол-во часов по значениям полей начала и окончания (работы)
'При ошибках возвращает Минус один (-1)!
'--------------------------------------------------------------------------
' ?TotalTimeInHours (8,0,16,20)
'--------------------------------------------------------------------------
Dim dStart As Date, dEnd As Date
Dim dRes As Date

On Error GoTo TotalTimeInHours_Err
    
    
    dStart = TimeSerial(Nz(vStartHH), Nz(vStartNN), 0)
    dEnd = TimeSerial(Nz(vEndHH), Nz(vEndNN), 0)


    If dEnd = dStart Then GoTo TotalTimeInHours_End 'Вычислять нечего
    If dEnd < dStart Then GoTo TotalTimeInHours_Err
    
    dRes = dEnd - dStart 'Разница во времени

    TotalTimeInHours = CCur(Format(dRes, "hh"))
    TotalTimeInHours = TotalTimeInHours + CCur(Format(dRes, "nn") / 60)

TotalTimeInHours_End:
    On Error Resume Next
    Err.Clear
    Exit Function

TotalTimeInHours_Err:
    'MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in Function: TotalTimeInHours in module: Module1", vbCritical, "Error in Application"
    Err.Clear
    TotalTimeInHours = -1
    Resume TotalTimeInHours_End
End Function




Скачать

MSA-2007 ( 49 kB) Пример


Назад ToTop
L.E. 06.03.2019
Рейтинг@Mail.ru